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Grafik + Musik 
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Programmierung 
Wissenschaft 
Hobby 


Eine Publikation von 


DM 18,- 


NEUES 
über 
Hardware 
Software 
und 
Systeme 


Mein Sinclair ZX 81 
D. Hergert 
160 Seiten, 25,— DM 


Hier wird von Anfang an mit 
einfachen Beispielen erklärt, 
wie Sie Ihren ZX 81 voll nut- 
zen können. Schritt für 
Schritt lernen Sie, wie Ihr 
ZX 81 an den Fernseher und 
Kassettenrecorder ange- 
schlossen wird, wie Sie die 
Tastatur nutzen, um Ihrem 
Computer Befehle zu geben. 
Sie lernen für Grafik-, Rech- 
nungs-, Spiel- und andere 
Anwendungen Programme 
schreiben, wie BASIC am be- 
sten einzusetzen ist u.a.m. 


E. Fioegel 


Programmieren in BA- 
SIC und Maschinen- 
code mit dem ZX 81 
Ekkehard Flögel 

128 Seiten, 29,80 DM 


Zahlreiche abgeschlossene 
Programme für den ZX 81. 
Unter anderem finden Sie 
hier Spiel-, Schul- und Daten- 
verwaltungsprogramme, die 
nach eigenem Belieben er- 
weitert und abgeändert wer- 
den können. Für alle, die sich 
über BASIC hinaus mit der 
Programmierung des Prozes- 
sors Z 80 beschäftigen wol- 
len, ist ein Kapitel über Ma- 
schinencode eingeschlossen. 


6502-Programmieren 
in Assembler 

L. A. Leventhal 

600 Seiten, 59,— DM 


Für den meistverwendeten 
Mikroprozessor 6502 wird 
hier die Programmierung in 
Assembler dargestellt. Sämt- 
liche Befehle sind ausführlich 
beschrieben, und jeder Be- 
fehl wird mit einem Beispiel 
erläutert. Praktiker und Ein- 
steiger erhalten mit diesem 
Buch ein wichtiges Hilfsmittel 
für das leichte Einarbeiten in 
Assemblersprache. (In glei- 
cher Aufmachung auch für 
6800 und 8080/8085 erhältlich) 


CHIP-BUCHLADEN 


APPLE Il-Anwender- 
handbuch 

L. Poole/M. McNiff/S. Cook 
400 Seiten, 49,— DM 


Dieser Leitfaden erspart das 
Suchen nach wirklich ver- 


wendbaren Dokumentationen 


für den APPLE Il-Computer 
Er beschreibt das Gerät und 
informiert ausführlich über 
Peripheriebausteine und Zu- 


behör einschließlich Disklauf- 


werken und Drucker. Er zeigt 
die Anwendung von BASIC 
auf zwei verschiedene Arten 


und gibt Tips für fortgeschrit- 


tene Programmerstellung 


Viel mehr als 
33 Programme für den 
Sinclair Spectrum 


R. G. Hülsmann 
138 Seiten, 29,80 DM 


Es gibt Programme, die 
Farbe, Ton und hochauflö- 
sende Grafik voll zur Geltung 
bringen. Sie können die Pro- 
gramme einfach abtippen 
oder auch als Fundgrube für 
Ideen benutzen und mit dem 
Spectrum spielen. Möglich- 
keiten sind dazu genug gege 
ben: „Crazy-Kong‘, eine 
BASIC-Version des bekann- 
ten Spiels oder auch 3-D-Gra 
fik sind nur einige Beispiele 


Programmierung 
des Z-80 


Rodnay Zaks 
650 Seiten, 48,— DM 


Ausgehend von den grundle- 
genden Konzepten bis hin zu 
fortgeschrittenen Datenstruk 
turen und Techniken, zeigt Ih 
nen dieses Buch mit vielen 
Abbildungen und Beispieler. 
wie Sie gut organisierte Pro 
gramme in der Sprache des 
Z-80 schreiben können. Alle 
Konzepte sind einfach und 
präzise beschrieben, sie kön 
nen zum Aufbau schwierige 
rer Techniken benutzt wer 
den 


6502-Anwendungen 
Rodnay Zaks 
272 Seiten, 38.— DM 


Hier wird systematisch be 
schrieben, wie vielserig d= 
6502-Mikroprozessor zu == 
zen ist. Die gezeigten Ara 
derprogramme geben dem 
Leser die Möglichkeit. zB 
eine elektronische Orgel, em 
Alarmanlage für sein Haus 
mit Feuerwehrmelder == 
eine Geschwindigxertsrege- 
lung für Elektromotoren zw 
bauen. Ein 6502-Assomzder im 
BASIC wird ebenso besöue 
ben wie Peripheriegeräte si 
andere 6502-Systeme 


64 intern 

M. Angerhausen/A ===. 
L. Englisch/K. Gerits 

302 Seiten, 69,— DM 


Commodore 64-Besitrer ya 
chen ab sofort ncht mer = 
dem Wörterbuch m 3 

nach amerikanısches 
Ausschau zu halten 3 
große Buch zum: Comemasicns: 
64 ‚.64 intern‘ ıst etwa Ui 
gewöhnliches. Es zes 5 
gebnis monatelanger Des 
beit der vier Autoren. Es 
beschreibt die Maschnesgme 
grammierung über Ass 
blerprogrammierung, Giafa 
und andere 


Lerne BASIC mit des 
Volkscomputer VC-2 
Günter O0. Hamas 

488 Seiten. 29,50 DM 

Der Zugang zum Compuse 
der lange Zeit u u _N:s 
malverbraucher” ee 
sen war, steht bee ==> 
mann offen. in Gesem Sr 
wird das BASIC ee 
wie es auf dem Via scremea: 
ter VC-20 von Cormemodone 
implementiert wnsse E= 
zelne Lern- und Ubungsess 
heiten führen schnee 
zum sicheres 7 2er 
mit BASIC o 
Bedienung 2 


Planen und Entschemte= 
mit BASIC 

X.T.Bu 

200 Seiten, U — DE 

Dieses Buch iz ame Saır 
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Eine Publikation von CHIP 


Zu diesem Heft 


Wenn Sie einen preiswerten Home-Computer 
mit Schreibmaschinen-Tastatur und vielen 
Erweiterungsmöglichkeiten suchen, dann 
sollten Sie den VC 20 testen. Immerhin 
wurde er weltweit rund 1.5 millionenmal 
wegen dieser Eigenschaften gekauft. und 
allein im deutschsprachigen Raum arbeiten 
oder spielen rund 100 000 Benutzer mit dem 
vC 20. 

Vielen Besitzern des VC 20 genügt es je- 
doch nicht. nur mit den im Anleitungsbuch 
abgedruckten oder im Handel erhältlichen 
Programmen des VC 20 zu arbeiten. Für sie 
wurde dieses Sonderheft VC 20-Programme 
aufgelegt. Es soll zeigen . wie vielseitig 
der VC 20 einsetzbar ist. 

0b Spiel. Hobby. Organisation. Grafik. 
Musik oder Wissenschaft - kein Bereich 
wurde ausgelassen. 

So können Sie in einem Intelligenztest Ihr 
Wissen und logisches Denken prüfen. anhand 
eines beigefügten Listings lernen. wie man 
eine dreidimensionale Grafik aufbaut oder 
mit einem kurzen Programm aus ihrem VC 20 
ein Klavier macht. Demonstriert werden 
verschiedene Geräusche wie Vogelstimmen. 
Wind und Wellen. das Fliegen und Landen 
eines UFOs. das Heulen einer Sirene oder 
Klingeln eines Telefons. Diese Geräusche 
können Sie auch in Ihr eigenes Programm 
einbauen. Hinzu kommt. daß die Anzahl der 
Spiele in diesem Heft das Angebot vieler 
Händler übertreffen dürfte. 

Sie können Ihre eigene Textverarbeitung 
und Ihr eigenes Archiv aufbauen oder an- 
hand eines eigenen Programmes das Morsen 
spielend" lernen. 

Vor allen Dingen werden Sie genügend Anre- 
gungen bekommen. um neue. eigene Programme . 
zu entwickeln. aufzubauen oder bestehende 
entsprechend Ihren Wünschen zu ändern. 


Viel Spaß beim Programmieren wünscht Ihnen 


Ihre CHIP-Redaktion 


Zwei Supercomputer 
+vier Spitzenbücher 


Angerhausen : Englisch 


vC-20 


Ausführlich dokumen- 
tiertes ROM-Listing 
mit einer Einführung in 


die Maschinen- 
programmierung 


EIN DATA BECKER BUCH 


VC-20 INTERN, 
1983, ca. 140 Seiten, DM 49,- 


Angerhausen : Becker 
Englisch -Gerits 


64 


intern 


Das große Buch zum 
Commodore 64 


EIN DATA BECKER BUCH 


64 INTERN, 
1983, ca. 300 Seiten, DM 69,- 


VC-20 


Der bewährte Erfolgscomputer mit weltweit über 
1.000.000 verkauften Exemplaren. Ideal zum 
Einstieg ins Computern. Dazu zwei echte DATA 
BECKER Bücher: VC-20 INTERN enthält ein um- 
fangreiches, ausführlich dokumentiertes ROM- 
Listing und zusätzlich eine Einführung in das 
Programmieren des VC-20 in Maschinensprache. 
Damit ist VC-20 intern fürjeden interessant, dersich 
näher mit der Maschinenprogrammierung des 
VC-20 auseinandersetzen möchte. VC-20 TIPS & 
TRICKS beschreibt detailliert die Programmierung 
von Sound und Graphik des VC-20, beschäftigtsich 
näher mit dem Speicher und seiner Erweiterung, 
bringt BASIC-Erweiterungen, enthält eine umfang- 
reiche Sammlung von Poke’s und anderen 
nützlichen Routinen und zahlreiche interessante 
Beispiel- und Anwendungsprogramme, z.B. Text- 
verarbeitung und eine Dateiverwaltung. Eine echte 
Fundgrube für jeden VC-20 Anwender! 


Commodore 64 


Der professionelle Arbeitsplatzcomputer mit dem 
fantastischen Preis-/Leistungsverhältnis. Ideal für 
anspruchsvollere Anwendungen und für Aufsteiger 
vom VC-20. DazuzweiechteDATABECKER Bücher: 
64 INTERN erklärt detailliert Architektur und 
Möglichkeiten des 64, insbesondere Sound und 
Graphik, enthält ein ausführlich dokumentiertes 
ROM-Listing, eine Einführung in die Maschinenpro- 
grammierung, Vergleichsliste VC-20/64, zahlreiche 
Programmbeispiele und Blockdiagramme und 
vieles andere mehr. Ein Bestseller mit bereits über 
5000 verkauften Exemplaren. 64 TIPS & TRICKS 
enthält zahlreiche Programmierhinweise und 
-tricks, nützliche Maschinenroutinen, mehr über 
CP/Maufdem64,mehrüber Anschluß-und Erweite- 
rungsmöglichkeiten, zahlreiche Anwendungs- und 
Beispielprogramme und vieles andere mehr. Eine 
echte Fundgrube für jeden 64 Anwender! 


Angerhausen : Riedner 
Schellenberger 


VC-20 


Tips & Tricks 


Eine Fundgrube für den 
VC-20 Anwender 


| EINDATA BECKER BUCH 


VC-20 TIPS & TRICKS, 
1983, ca. 200 Seiten, DM 49,- 


Angerhausen : Englisch 
Gerits 


64 


Tips & Tricks 


Eine Fundgrube fürden | 
Commodore 64 Anwender | 


EIN DATA BECKER BUCH ! 


64 TIPS & TRICKS, erscheint 
Juni’83,ca.200 Seiten, DM49,- 


Wir liefern nicht nur VC-20 und Commodore 64, sondern 
auch ein riesiges Angebot an Software, Peripherie, Zube- 
hörundLiteratur dazu. Mehr darüber enthält aufüber 70(!) 
Seiten unser brandneues VC-INFO 2/83, z.B. Compiler, 
JEC-Bus mit BASIC 4.0, die neuen EPSON-Drucker, die 
ersten Steckmodule für den 64, neue Programme aus 


DATA BECKER 


Merowingerstr. 30 : 4000 Düsseldorf - Tel. (0211) 312085 im Hause AUTO BECKER 


In unserem 800 qm Ausstellungszentrum in Düsseldorf führen wir Commo- 
dore. DEC. HP. IBM, Osborne, SIRIUS und andere gute Computer. 
Über 30 geschulte Spezialisten freuen sich auf Ihren Besuch. 


aller Welt, CP/M für den 64, neue Fachliteratur 
und vieles andere mehr. Dazu wieder viele 
Programmiertricks und -tips. Am besten 
sofort gegen DM 3,- in Briefmarken 
anfordern oder uns 

in Düsseldorf besuchen. 


SPIBEE: 


7 Hektik 

8 Superhirn 

11 Painters 

13 Vorsicht Falle 
16.- String Control 
17 Mini Flipper 

19 Buchstaben 

20° _ Stringxcht 

20  Römisch-Arabisch 
22 Hangman 

23  Partnerwahl 

25  Panzerschlacht 
27  Submarine 

29 Tank-V-UFO 

31 Raketenkommando 


See Cobra 

33... 601 

35 Gefangen 
37  Roulett 
39 17 +4 
GRAFIK 


41 Micky Maus 
42 Walloons 
45 Grafikdemo 


47 .Kurplot 

50 Demo 3 

50 Balkendiagramme 
52 Demo 2 

53 Mosaik 


53 _Flaggendemo 
55 Expander-Demo 


MUSIK 
57 Mini-Orgel 
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57 
58 


Sound Effects 
Piano 


ORGANISATION/PROGRAMMIERUNG 


59 Uhr 

60  Auto-Brief 

61 Merge 

62 Monitor 

65  Termin-Prozessor 

68  Großschrift 

68 Finanzverwaltung 

73 _Ut-Dump 

74 Auto-Ersatz-Programm 

75  Codierblatt 

77  Formatiertes Ausdrucken 
von Zahlen 

78  Adressenverwaltung 

WISSENSCHAFT 

81 Datumsrechnung 

8 Primzahlen 

83  Abstand-Winkel 

84 Intelligenztest 

86  Geo-Test 

88  Molekülmasse 

90 Teacher 

91 Trigonometrie 

HOBBY 

93 Funk (Morsen) 


98 Impressum 


Baumann, Rüdeger 


Programmieren 


mit PASCAL 

272 Seiten, zahlr. Abb. 
2. Auflage, 23 DM 

ISBN 3-8023-0667-8 
Eine Einführung für 
Schüler und Hobbypro- 
grammierer. Die Einzel- 
komponenten von PAS- 
CAL werden mit den 
Aufgaben schrittweise 
erarbeitet und durch 
Übungen gefestigt. 


Pol, Bernd 


Wie man in BASIC 


programmiert 

368 Seiten, 16 Abbild. 
30 DM 

ISBN 3-8023-0673-6 

An zwei bis ins Detail 
ausgearbeiteten Fallstu- 
dien werden die Grund- 
lagen des Programmie- 
rens verdeutlicht und 
die wichtigsten BASIC- 
Bestandteile bespro- 
chen. 


UHIP 


WISSEN 

ist die 
Buchreihe, 
mit der Sie 
Ihr Mikro- 
computer- 
wissen 
systematisch 
vertiefen 
können. Sie 
bringt alles, 
worauf es 
ankommt. 
Für Ein- 
steiger, Fort- 
geschrittene 
und Profis. 
Mit praxis- 
nahen An- 
wendungs- 
beispielen. 


WISSEN 


‚Applikation 


Fin Buch von DIA dar Zeitschnitt 
lür Mikrocomputer-Technik 


Baumann, Rüdeger 


Computerspiele 
und Knobeleien 
programmiert in 


BASIC 

304 S., zahlr. Abb 
30 DM 

ISBN 3-8023-0703-8 


Anleitung zum schöpfe- 
rischen Umgang mit 
dem Computer: Aus der 
Spielidee entwickelt 
sich die Spieistrategie 


Willis, Jerry/Pol, Bernd 
Was der Mikro- 
computer alles 


kann 

366 Seiten, 100 Abbild. 
33 DM 

ISBN 3-8023-0643-0 
Diese Einführung für 
alle, insbesondere für 
Nichttechniker und An- 
fänger, bringt in leicht 
faßbarer Form alle 
Grundlagen der Compu- 
terei. 


Didday, Rich 


Mein Computer: 
2'° Fragen und 
Antworten 


Band 1: Hardware 
298 Seiten, 64 Abbild. 
36 DM/3-8023-0659-7 


Band 2: Software 
240 Seiten, 144 Abbild. 
38 DM/3-8023-0660-0 


Die gesamte Computer- 
technik im Überblick. 


Schmidt, Klaus-Jürgen 
Renner, Gerhard 


Mikrocomputer- 
Betriebssysteme 
CP/M, CDOS, DOS 


152 Seiten, 32 Abbild. 
25 DM 
ISBN 3-8023-0655-4 


Zur Erfassung der Lei- 
stungsfähigkeit von uP- 
Systemen werden Mini- 
betriebssysteme darge- 
stellt, dann Befehle u.v.a. 


Computerzeichnung zur 
Lösung ergonomischer 
Probleme (W. A. Fetter) 


Blume, Christian 
Dillmann, Rüdiger 


Freiprogrammier- 
bare Manipulato- 


ren 

Aufbau und Program- 
mierung von Industrie- 
robotern 

232 S., zahlr. Abbild. 

30 DM 

ISBN 3-8023-0651-1 
Manipulatoren, Effekto- 
ren, Steuerungen u.v.m. 


CHIP 


WISSEN 


Popular 


Ein Buch vor DIA der Zeitschrift 
hir Mikrocomputer-Technik 


Wernicke, Joachim 


Computer für den 


Kleinbetrieb 

148 Seiten, 12 Abb 

20,— DM 

ISBN 3-8023-0711-9 
Unverzichtbare Grundla- 
gen, so kaufen Sie ihren 
Computer ohne Risiko, 
der Computereinstieg 
im Betrieb: Die Büroar- 
beiten, „Kleingedruck- 
tes’ zum Computerein- 
stieg, Anhang. 


Sacht, Hans-Joachim 


uP-Programmier- 
fibel 
2650/6502/6800/8080-85 
366 Seiten, 129 Abbild. 
38 DM 

ISBN 3-8023-0644-9 


Zahlreiche Beispiele zei- 
gen Aufbau und Entste- 
hen von Programmen 
und erklären die Anwen- 
dung von Befehlen und 
Programmiertricks. 


UHIP 


WISSEN 


Von der passiven 


zur aktiven Computerei 


Ein Buch von IHR der Zeitschrift 
für Mikrocompuler-Technik 


Sacht, Hans-Joachim 
Von der passiven 


zur aktiven IN! 


Computerei 


332 Seiten, 106 Abbild. 
38 DM 
ISBN 3-8023-0665-1 


Hardware, Software. Mit 
der persönlichen Com- 
puterei beginnen, 
BASIC-Programme 
schreiben, worauf man 
beim Kauf achten muß. 


Unser 
Gesamt- 
verzeichnis 
erhalten Sie 
kostenlos! 


us 


5 LL 


> 


VOGEL- 
BUCHVERLAG 
WÜRZBURG 


Postfach 67 40 
8700 Würzburg 1 


Zaks, Rodnay 


Programmierung 


des 6502 

356 S., zahlr. Abbild. 

2. Auflage, 44 DM 

ISBN 3-8023-0686-4 
Vor- und Nachteile beim 
Programmieren des 
6502 werden so darge- 
stellt, daß das erwor- 
bene Wissen auch bei 
anderen Prozessoren 
anwendbar ist. 


Zaks, Rodnay 


CP/M-Handbuch 
310 S., zahlr. Abbild. 

2. Auflage. 44 DM 

ISBN 3-8023-0704-6 

Die Anwendungen des 
Control Program for Mi- 
croprocessors (CP/M) 
sind ausführlich, von 
Operationen am System 
bis hin zu Problemlö- 
sungen, beschrieben. 
Zahlreiche Fotos veran- 
schaulichen die Hard- 
ware. 


Lesea, Austin 
Zaks, Rodnay 


Mikroprozessor- 
Interface- 


Techniken 

440 S., zahlr. Abbild. 

3. Auflage, 48 DM 

ISBN 3-8023-0685-6 
Anwendung von Bautei- 
len und Techniken: von 
der ZPU bis zu periphe 
ren Geräten, von Inter- 
faceproblemen bis zur 
Fehlersuche. 


Commodore VC-20 Programme 


Bei 
Symbole 
Randbegrenzung 


diesem Spiel sollen möglichst viele 
überfahren werden. ohne mit der 
oder mit einem Mauerstück 
zu kollidieren. Für die verschiedenen 
Symbole erhalten Sie unterschiedliche 
Punktzahlen: Für ein Herz 10 Punkte. für 
ein Pfundzeichen 20 Punkte und für: ein 
Dollarzeichen 50 Punkte. Wird die Randbe- 
grenzung oder ein Mauerstück getroffen. 
werden Punkte von Ihrem Punktekonto abge- 
zogen. Falls Sie keinen "Rest" mehr auf 
Ihrem Konto haben. ist das Spiel beendet. 


BBEREN. mn nen 

28 REM >>> HEKTIK <<< 

39 REM 

48 REM BY U. KRATZ 

58 REM BENEDIKTINERNW. 

68 REM NR.23 

?”@ REM 5188 AACHEN 

BEEREN. -=+=---- ar 

98 A=18'RE=25:PRINTCHRFC1423; :GOSUB929 


190 BZ=4#CPEEK (36866) ANDI2B? +64M 
(PEEK(36B69)AND129) 
BF=37888+4#CPEEK 36866 AND128) 
POKE36879, 118 
PRINTCHR$C147?," @" 
POKE6SB, 128: POKE649, I 

AZ=16 

GOSUB35B 

FORI=1TOR 

P=INT{RNDE 134449) +44 
IFPEEKCBZ+P)<>32THEN188 
POKEBZ+P , 224 :POKEBF+P, 2 
NEXTI 

FORI=1T018 

P=INTCRNDC 134449) +44 
IFPEEK(BZ+PICD3ZTHENZ3O 
POKEBZ+P ‚83: POKEBF+P, 1 

NEXTI 

FORI=1T05 
P=INTCRNDC1?#440) +44 
IFPEEKCBZ+P)<>32THENZ288 
POKEBZ+P, 28: POKEBF+P, 1 

NEXTI 

P=INTCRNDC13#449) +44 
IFPEEKCBZ+PI<C>32THENI2B 
POKEBZ+P , 36: POKEBF+P; 1 
GOT0478 

PRINT"PUNKTE: REST: " 
EEE are gene 


FORI=1T029 


118 
128 
130 
148 
158 
168 
178 
188 
198 
- 208 
218 
220 
230 
248 
- 250 
268 
278 
280 
290 
= 308 
318 
328 
338 
- 348 
358 
360 
378 
389 


Eine Publikation von CHIP 


Versuchen 
sammeln ! 

abgefahren haben. 
aufgebaut. 


Sie möglichst viele Punkte zu 
Jedesmal wenn Sie alle Symbole 
wird das Spielfeld neu 
Bei jedem Durchgang steigt der 


Schwierigkeitsgrad. 
Sollte einmal ein Symbol völlig von Mauern 


umgeben 
Taste zu drücken. 


brauchen Sie nur die " 
damit das Spielfeld neu 


sein. 


aufgebaut wird. 


Jan 


398 
400 
-418 
420 
- 438 
448 
- 450 
468 
470 
488 
- 499 
599 
=10 
20 
38 
540 
5.9 
560 
579 
580 
59Q 
600 
618 
620 
638 
648 
658 
- 668 
678 
688 
698 
708 
718 
728 
738 
748 
750 
768 
770 


Schaefer und Werner Kratz 


PRINT" IIRBEBBRBRBBBRRRRABBBBI"; 
NEXTI 
POKEBZ+484 , 189: POKEBF+484, 1 
FORI1=1T028 

POKEBZ+484+1,64: POKEBF+484+1, 1 
NEXTI 
POKEBZ+595, 125: POKEBF+505, 1 
RETURN 
Q=INTCRNDCIIM4B4) +22 
IFPEEK(BZ+Q3<C?32G0T0478 
POKEBZ+Q, 81: POKEBF+Q, 4 
GETT$ 

PRINT" 3ORBBRBBI F 
PRINT" SSBRBRBBI" PU; 
PRINT"S";TAB(C183" ei 
PRINT"#";TABC1S?RE 
IFT£="U"THENR=-22 
IFT$="H"THENR=-1 

IFT$=" J"THENR=1 
IFT$="N"THENR=22 
IFT$="«"THENIFAZ=16G0T01098 
1FPEEK (BZ+Q+R)=64 THEN69B 
IFPEEK(CBZ+O+R)=83THEN?18 
IFPEEK(BZ+QO+R)=224THEN888 
IFPEEKCBZ+Q+R)=28THEN?48 
IFPEEK(CBZ+O+R)=36THEN?7® 
IFPEEK(CBZ+0+R)=93THEN69B 
POKEBZ+Q+R, 81 :POKEBF+G+R ,4: POKEBZ+Q, 32 
Q=Q+R 

GOTOSa8 

PU=PU-1 

GOTOS88 

PU=PU+1Q:AZ=AZ-1 
IFAZ=OTHENI1D 

GOTO668 

PU=PU+20:AZ=A2-1 
IFAZ=QTHENI18 

GOTO668 

PU=PU+5Q:AZ=AZ-1 


788 IFRZ=BTHENI1B 1948 GETWS: IFY$=""THEN1240 
738 GOTOSER 1050 PRINT"IBEL IHREM “REST” HIN-M" 
888 RE=RE-1 1068 PRINT"NEHMEN MUESSEN. " 

910 IFRE=QTHENG3B 1078 PRINT"WENN SIE KEINEN 
828 GOTosaa 1080 PRINT"”REST” MEHR HABEN, I" 

839 POKE36879, 138 1898 PRINT"HABEN SIE VERLOREN. I" 
848 PRINT"TEEN"; {188 PRINT"RUSSERDEM ERHALTEN SIE" 
859 PRINT"IHRE PUNKTZAHL: " 1119 PRINT"PUNKTABZUB, WENN SIEM" 
869 PRINT" RK" PU; "a" 1128 PRINT"DEN RAND BERUEHREN. I" 
879 PRINT"MORIN NOCH EIN SPIEL?" 1138 PRINT"DER SCHWIERIGKEITSGRADN" 
888 GETRS: IFRF="A"THENRUN 1148 PRINT"STEIGT LAUFEND AN.I" 

898 IFRS="E"THENPRINT"T':END 1158 PRINT" STASTE DRUECKENE" 

928 GOTOBSR 1168 GETVS: IFVS=""THENI 160 

919 A=A+3:RE=RE+1Q:R=0: 0070188 1178 PRINT"IMSO WIRD GEGANGEN: M" 
928 PRINT") DIDHEKTIKCCCM" \ 

938 PRINT"SIE VERSUCHEN FOLGENDE" En en 

940 PRINT"ZEICHEN ABZUFAHREN, M" nr ir 

959 PRINT"UM DRFUER PUNKTE ZUM" ee 

968 PRINT"ERHRLTEN: MSBEB=SQ PUNKTEN"; es nur m 

978 PRINT" BENBER-29 PUNKTEN"; re Is 

988 PRINT" SME=LB PUNKTEN"; ea EInmn He 

998 PRINT"DABEI MUESSEN SIEN" | 

1Q8@ PRINT"VERSUCHEN MAUERSTUECKE" 1258 PRINT" NEUER SPIELRUFBAU" 
1918 PRINT"CHM)NICHT ZU BERUEHREN, " 1268 PRINT'MU BTASTE DRUECKENE" 
1928 PRINT"DA SIE SONST ABZUEGE I" 1278 GETX$: IFX$=""THENI270 

1838 PRINT" TASTE DRUECKENAEI" 1288 RETURN 


Das Spielprogramm enthält das komplette weise Ziffern geschieht auf sehr einfache 
Spiel "Superhirn" in sehr komfortabler Weise mit Hilfe der Zifferntasten ohne 
Form. Das Laden der Spielanleitung kann Betätigung der RETURN-Taste (GET-Anwei- 
auf Wunsch übersprungen werde. Es kann sung). Drei unterschiedliche Melodien zei- 
nach Belieben entweder mit Ziffern oder gen in Verbindung mit dem Begleittext 


mit Farben gespielt werden... In beiden - das Erreichen der Zeitbegrenzung. 

Fällen hat der Benutzer die Möglichkeit, - das Scheitern des Spielers nach dem 
sich zwischen zwei Spielstärken zu ent- zehnten Versuch und 

scheiden. Eine Erweiterung des bekannten - den Erfolg des Spielers bei herausgefun- 


Spiels besteht in einer Zeitbegrenzung. denem Code 
die auf Wunsch ausgeschaltet oder zwischen 

einer bis 999 Sekunden eingestellt werden 

kann. Die Eingabe der Farben beziehungs- Fred Husmann 


5 REM"SPIELRNLEITUNG FUER SUPERHIRN" 

6 PRINT"T" :PRINT"SUPERHIR A" 

18 PRINT" ":PRINT:FRINT:PRINT:PRINT"WOLLEN SIE DIE SPIEL- ANLEITUNG LESE 
N?" 

28 PRINT" KIEND" 

34 GETAF: IFA$="J"THENSO 
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408 
418 
424 
430 
448 
458 
460 
74 
438 
494 
20 
Sia 
368 
578 
538 
>94 
698 
51 
858 
15 


5 IFA$CH"N"THENSQ 


PRINT" :GOTO589 
PRINT"TEUPERHIEN”" 
PRINT" TI" PRINT: PRINT"SPIELAHLEITUNG : 


a FRIHT" NPIUDHTTZIEL MES 'EPIELSMISTLESETNEN MOM sBONPUTER GE 


PRINT"WREHLTEH CODE IN MAsI-MAL 12a VERSUCHEN HER- AUSZUFINDEN.”" 
PRIHT"DER [ODE BESTEHT ENT- WEITER ALS FARBFUNKTEN <FARBCODIERUNG> DDER” 
PRINT"AUS ZIFFERN CZIFFERN- CODIERUNGI." 

PRINT"ES KAHH ZWISCHEH ZWEI SCHWIERIGKEITSGRADEN GEWAEHLT WERDEN." 
S5nsUBi2d:50T0159 

PRINT" SEARTSINISTRTEISERTEN SDR DER - TASTE DRUECKEH!" 

GETAE: IFA" W"THENIIG 

PRINT" :RETURH 

ER INN" SCHNITERIGKENTSGRADK Jar u Fr Dr ne Bi 

FRINT"DER COMPUTER WREHLT 4 AUS € FARBEN KZIFFERND" 
EROHT'SCHUDERTGMERTSERAD EN I 7 7 nr Tre nr 

PRINT"TDER COMPUTER WAEHLT 5 AUS 5 FARBEN SZIFFERND”" 

FRINT"EINZELFE FARBEN “ZIF- FERN? KOENNEN DABEI AUCH MEHRFACH": 
PRINT" YORKOM-":PRINT"MEN." 

PRINT" ZUSAETZLICH kANN EINE ZEITBEGRENZUNG BE- STIMMT WERDEN." 
GU3UB120 

PRUNT"ZEREBERBENZUHBT, >» sch Fri R 

PRINT"SKEINE (87:8 DURCH EIN- GA?E DER 8 BZW. DRUEK-KEN DER SRETURNB-"; 
PRINT"TASTE WIRD DIE ZEITBEGREN-" 

PRINT" ZUNG AUSGESCHALTET." 

PRINT"AIN SEKUNIEN:M ES KANN EINE ZEITBESRENZUNG" 

PRINT"ZWISCHEN EINER SEKUNDELND 993 SEKUNDEN GE- WAEHLT WERDEN." 
PRINT"FUER JEDEH DER 19 VER-SUCHE STEHT DIESE ZEITDANM ZUR VERFUZGUNG." 
PRINT"DANACH ERMAHNT DER COMPUTER ZUM WEITER- SPIELEN." 

GOSUR120 

PRINT"EINGABI. DES CODES: WITE-TR RI AR 


a PRINT"NIE EINZELNEN FARBEN (ZIFFERN WERDEN UEBERDIE NUMERISCHE TRSTA-" 


PRINT"TUR EINGEGEBEN. HALH JEDEM TASTENDRUCKERSCHEINT STATT 7°" 
PRINT"DIE ENTSFRECHENDE FAR-BECZIFFER). AM ENDE" 

PRINT" JEDER ZEILE ERSCHEINT NOCHMALS 7°. SOLL DIEZEILE VERRENDERT"; 
PRINT" HER- DEN, SO DRUECKT MAN €." 

PRINT"SOLL DIE ZEILE BLEIBENSO IST SSPACER ZU DRUEK-KEN. " 


8 GOSUB120 
FRINT"BESTRETIGUNG: ":PRINT"DER COMPUTER (U IBT" 
PRINT"DIE BESTAETIGUNG MIT WEISSEM IND SERUDSEER PUNKTEN. "PRINT 


TIME TSSE ROTE; | 0 

FRINT"ANZAHL DER RICHTIGEN FARBEN GZIFFERN?" PRINT 

SEINT -SCHUNEZE PÜRKTES: .. SET Y Sacher: y 

PRIHT"ANZAHL DER RICHTIGEN POSITIONEN." 'GOSUB120 

PRINT"ENDE DES SPFIELS: ur ee 

PRINT"DAS SPIEL IST BEENDET.WENN DER RICHTIGE CODEGEFUNDEN WÜRDE, ODER" 
FRINT"WENN DER 19. VERSUCH OHNE ERFALT WAR." 

FRINT"BEIDES ZEIGT DER COM- PLITER OPTISCH UND AKU-STISCH AH." 
PRINT"IN JEDEM FALL KANN DA-NACH ENTSCHIEDEN WER- DEN, OB EIN"; 
PR NT" HEUES SPIEL GEWUENSCHT WIRD ODER MICHT.":GOSUB128 
PRINT:PRINT:FRINTTA CH TUN Ga": FRINT"ITTTTTO 


PRINT"EINE FALSCHE EINGABE KANN EVTL. ZU EINEM  SErTNTAX ERRÖRB FÜEHREN. " 
PRINT"IN DIESEM FALLE IST DAS 5SPIE_ UEBER DEN GRUNS-BEFEHL ERNELT ZU" 


PRINT"STARTEH. "PRINT 

PRINT'"SBITTE HARTEN SIE EIMEHAUGENBLICK. DER COM- 3"; 
PRINT"SPUTER LIEST JETZT DAS SPTELFROGRAMM EIN, ai 
ELT:LORD 


ITO4R 
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2 FORZ=1T01999: NEXT: RETURN 

3 FORM=ATOR+2: IFF=ZTHENPOKE?723+M, 48+C.CM) : POKE33448+M, 1:607105 

4 POKE?7723+M, 31: POKE33443+M, CK M)-1 

5 NEXT:RETURN 

43 PRINT" TBRkaseksekskla" SPRINT" SUPERHIRN #*":2=@:PRINT"# COPYRIGHT: #" 
58 PRINT"#FRED HUSMAHNK" SPRINT "sakasksaklslakllaiek" !PRII IT:PRINT:PRINT"WAEHLEN SIE:":P 
RINT 

7@ PRINT"FARBEODIERUNG  £13" :PRINT"ODER" :PRINT"ZIFFERHEODTERUNG (2>" 

99 GETF: IFF=@ORF>2THENIG 

118 PRINT" :POKE36379, 138: PRINTTARC2)" JASLPERHIRN" ; : IFZ=OTHENGNSUB2 

15@ PRINTTAR“12)" ASSCHWIERIGE ASKEITSGRANM" 

168 PRINTTARC13>"1 ODER 27": IF?=LORZ=2THEN289 

179 BETA: IFA=BORA>ZTHENI?G 

294 E=4+2#A:PRINT"TTY :PRINTTABCIZI" "A" " 

218 FÜRI=4TOR+5: POKE7746+1,87:POKE3S4G6+1: L:NEXT 

224 PRINTTAR(13)" ARZEITRE-M" 

229 PRINTTARC13)" ASGRENZUNGE" :PRINT: IFZ=2THEN368 

249 PRINTTABCLS)"KEINE (8) ODER IN" 

5a PRINTT ABC 133" SEKUNDEN" : INPUT" ';B:2=2:50T1011M 

3659 IFB=ATHENPRINTTABC13)"KEINE" :PRINT:PRINT:GOTO438 

279 IFB<LGATHENA1B 

386 Z=1:PRINT:PRINT:PRINT:PRINT"ZEITBEGRENZUNG BITTE" :PRINT"EIS MAXIMAL a9 SEL, 


494 PRINTTABEI2I "TI" FORIS1TNEBAR: EXT: GOTIL1E 

410 PRINTTA KASPER; :PRINT"SER" :PRINT:PRINT 

430 FÜRI=7212T08W1BSTEP22:503UB448: NEXT: GOTOSO@ 

440 FORJSATOR+2:0=1+J :POKEC.,87' FOKEC+30720,8:NEXT:RETURN 

500 C=43:FORI=7813T0SB16STEP22'C=C#+t POKEI.C POKEI+3O72R, 1° NEXT 
Sea POKESA1S,49:POKE38737, 1: POKESQLE.43: PN iE38736,1 

SEA FORI=FS19T0O8 B17STEP22:GOSLUB44A: NEXT: FORI=S1TI9+2:POKE?749+1,192 
ia POKESA4E9+1, NEXT: IFF=2THENPRINTTABCL3P" ASEIFFERN @" :PRINT:PRINT:GOTO71R 
788 PRIHTTABCI3P" ASFARRCODESE" PRINT 

18 FORI=1TNE: IFF=2THEN?3Q 

729 POKEIORI+22&1, 31: POKE39724+ 221. I-1 

7398 PRINTTABLIFITIENEXT: IFA=LTHENPRINT: PRINT 

?4B FORK=SATIA+Z 

779 GEKD=INTERNDERDHE+L) NEXT: FORI=77997073335TEP22 : FORK=ATÜA+Z 
sB@ DCEI=SCCK3 NEXT: T=TI:FORJSBTNR+2:ACTI=B: NEXT 

338 FORJ=ATOR+Z:POKEI+T.63 

2359 IF3=QTHENS?E 

BER U=Ti:VaU-T: IFYSBHSATHENGOSLUR2SRG 

37a GETACID: IFALTI=OTHENSSO 

330 IFF=2THENY=#SHRCS5  FOKEI+T. VI POKEI+ J+39720. 1: 5070900 

228 FOKEI+J.21:POKEI+I+30720,ACT5-1 

992 NEXT: POKEI+J.E3:POKEI+J+39728,8 

938 GETR&: IFA$=""THENI3O 

34a IFA$="#"THENPOKEI+J, 96: I=9:G0T0539 

958 TFA$C>" "THEHF3B 

62 POKEI+J, 26: POKE?993.43: POKE3IS7LS, 1: FORK=SATER+Z:NCKO=ACK) 
1119 IFBCKA=BORREKPC-DEK>THENL14R 

1123 BCKd=0:DeK)=d:5=S+l 

1149 NEXT 

1284 FÜRK=ATÜR+Z: FORL=ATOR+2: IFBCKI=BORBCKICHDELITHEN258 

1248 BiK)=8:DiL3=9 Walt 

1258 NEXT: NEXT 

1309 U=1+3+A: FORK=UTQU-S+1STEP-1: IFS=9 THENI4E 

1332 POKEK,S1: POKEK+39729,0 

1349 NEXT 
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:356 
1368 
1378 
1428 
1412 
1438 
1588 


FORK=I+FTOI+E+1: IFu=8 THENI3TE 

POKEK. , 1: POKEK+20729, 1 

NEXT 

IFSCA+3THEH1438 

S0SLB3:GOTI210R 

S=R:bi=9: NEXT 

PRINT" ERDKDTRDRERONCODE NICHT" :PEINT" GEKNACKT”" :GOSUB2702:G0TC 2200 


21289 PRINT" ELADTDAETIKTTTERNENDE NACH DEM" :PRINTCI-7799)722#1; 
21198 PRINT"H, TURCHGANG" PRINT"  GEKNACKT" :U=8:3=8:GNSUB2808 
2288 305UB3 

2218 PRINT:PRINT"NEUES SPIEL" PRINT" (CJ/ND ?" 

2a2a BETBE: IFBE=""THEN2220 

2230 IFB£="T"THEN4B 


22402 


2259 
2586 
2510 
25:39 
2552 
2720 
271E 
2209 
2218 
2328 
4928 


PRINT" :PRINT:PRINT:PRINT"VIELEN DANK FUER DAS":PRINT" INTERESSANTE SPIEL. 


PRINT:PRINT" AUF WIEDERSEHEN!" PRINT: PRINT:PRINT:PRINT:PRINT:END 
PRINT" SODDTETERTOORSIZEIT IST UM." :PRINT"EITTE SETZEN!" :POKE36878,5 
POKE36274,, 131: G0O5UB2 : POKE36974,9: POKE36375, 191: G051B2 
POKE 36975,2:POKE 36376, 191:G603UR 2:POKE36376,8 
FRRIHT"" SERDSTRTRDRUNTNRTATEÜRENTRONDKEN] ":PRINT" 
PIKE36878, 15: FORL=13AT0254 : POKE36376,L: FOR M=1T040 
NEXT: NEST: POKE36372,8:PÜKE 236876. R: RETURN 

GASLUB3: T=36975: POKET+3, 7: FORM=1T03: POKET , 289 
FÜRZ=1T0499: NEXT: POKET. 8: FORZ=1T0159: NEXT NEXT 
POKFT.201:GOSUB2:G0SUB2:POKET.@:RETLRN 
PNKE7FOB+M, 31: POKE3S443+M,.LCM)-1 


":T=TI:RE URN 


Zwei 


sollen möglichst viele 
Farbe ausmalen. 


Mitspieler 


Felder mit der eigenen 
Hierbei ist zu beachten. daß niemals der 
Pinselstrich des Gegners übermalt werden 
kann. Nach drei Minuten ist das Spiel 
beendet. Sie haben nun zwei Möglichkeiten: 
1. Das Einzelergebnis wird ausgeben: 

Taste "Fi" drücken. 


I 

28 REM PRINTERS 

38 REM BY U. KRATZ 

DEREN = 

5a GOSUB798 

68 GOSUB798 

7a BZ=4%CPEEKC36SSE)AND1287 +64% 
(PEEK (36869? AND128) 

88 BF=37889+4#CPEEK (I6B66)AND1287 

99 D=BF-BZ 

188 AFC12=6:AF(23=2 
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118 POKE36879,93 

128 PRINTCHRE(1423 ,CHR$C1475 
130 TI$="809998" 

148 POKE649, 1 

158 SC13=BZ+INTCRNDC1?KS85) 
168 S{23=BZ+INTCRNDC12#5057 
179 IFSC1?=SC22G0T0168 

188 POKES(1).,224:POKES(2)., 224 
198 IFRND(1)>.SGOTO68B 

288 POKES(1?+D,2:POKESCZI+D,6 
218 GETRF 


2. Das Einzelergebnis wird zu den vorheri- 
gen Ergebnissen hinzuaddiert: 
Taste "F7" drücken. 

Taktische Finessen werden Sie selbst 
mehreren Spielen entwickeln. 


nach 


IFYALSTIEI>ZSSTHENPRINT"3S":GOTO 318 
IFAg="W"THENRC1?=-22 
IFAg="A"THENRCI?I=-1 
IFA$="S"THENRCID=L 
IFA$="Z"THENR(1?=22 
IFA$="@"THENRC2?=-22 
IFA$=": "THENRC2I=-1 
IFAS="; "THENRC23=1 
IFA$="/"THENR(23=22 
IFA$="B" THEN42Q 
IFAf="Il" THEN478 
FORI=1T02 


IFCSCII-BZI /22=1NTCCSCHY-BZI/ZZIANDRCTI=-1THENRCTI=B 
IFCSCII-BZ+12 722=1NTCCSCII-BZ+12 7223 ANDRCII=1THENRCTI=Q 
IFSCII+REIYSBZORSCTI+RCIP>BZ+SOSTHENRCII=Q 


V=PEEKCSCHI+D+RCIHI 78: VeCY-INTEVI)EB 
IFVY=AFCIDTHENRCID=B 
SCH=SCTI+RCD) 

NEXTI 

50T0189 

GOSUB629 

FORI=1T02 

SP{TI=PCI) 

NEXTI 

GOTOS12 

GSOSUB62D 

FORI=1T02 

SPLII=SPCII+PCIY 

NEATI 

PRINT"T" 

PRINT"SPIELER #1:";SPC1) 
PRINT"MSPIELER #2:";SP<C2) 
PRINT" MIIMNOCH EINMAL"; 

INPUTR$ 
IFR$="NEIN"ORR$="N"THENSYS64882 
FORI=1T02 

P(1>=8 

RCI)=8 

NEXTI 

GOTO128 

FORI=8T0505 

V=PEEKCBF+T> 
IFEV/B-INTCV/SDIRI=SZTHENPEIISPCOIDHL 
IFCV/B-INTCV/BP IHB=6THENPCZI=PC23+1 
NEXTI 

RETURN 
POKES(23+D,6:POKES(1?+D,2 
GNTO218 

POKE36879, 138 

PRINT" ST';CHR$C14) 
L$="RINTERS" 

PRINT " OARDIDTEDNTSDEDTN k 
FORG=1T08 

PRINT" T'MIDFCLE,G, 135 SPCC213"""; 
FORI=1T0689:NEXTI,G 
FORI=1T02888 NEXT 

RETURN 

PRINT" 4" : :POKE36879, 142 
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=@2 PRINT" ROBERN #IE MOEGLICHSTVIELE -ELDER UND 


2 PRINT"IEGNER AUS!" 

s2@ PRIHT"WPIELER 1 “PIELER 2CROT> 
@ SPRINT'M U ß | 

= PRINT" I | 

552 PRINT"MCRSCHEINT NACH DREI 

TISCHEN!" 

552 PRINT'"MFIE ABRECHNUNG & NEUES 

Se GSETWE: IFW$=""THEN87O 

Sse2 SETURN 


ie sind Einbrecher - dargestellt durch 
{ren Punkt - und wollen in ein Haus ein- 
ringen. Vor Ihnen liegt ein gefährlicher 
ses: Sie müssen zuerst ein mit Fallen 
sersehenes Gelände durchqueren. Dieses 
selände wird durch Buchstaben dargstellt. 
anzer denen sechs die Fallen verkörpern. 
“ird ein Feld betreten. das der "Falle" 
senachbart ist. erscheint die Warnung: 
forsicht Falle! Wenn Sie trotzdem in eine 
falle laufen. ist ihr "Einbruch" miß- 
siückt. Sie können ihr Glück neu versu- 
onen. Nach Überqueren des Spielfeldes 
selangen Sie an einen Zaun. Durch ein Loch 
in diesem müssen Sie schlüpfen. Aber Vor- 


BIS en nn 

REM ANLEITUNG ZU 

REM VORSICHT FALLE 

REM VON J.SCHREFER 
en 

PRINT" I" 

PRINT" WRMKVORSICHT FALLEFARK" 
PRINT" ##VYON JAN SCHAEFERMEM" 
PRINT"SIE MUESSEN VERSUCHEN!" 
189 PRINT" 

118 PRINT"KMMKVORSICHT FALLEIERK" 
128 PRINT" ##VYON JAN SCHAEFER" 
139 PRINT"SIE MUESSEN VERSUCHEN!" 
142 PRINT"EINEN GARTEN ZU UEBER-" 
158 PRINT"Y" 

158 PRINT"RERKVORSICHT FALLE" 
178 PRINT" ##VYON JAN SCHREFERMEM" 
ı39 PRINT"SIE MUESSEN VERSUCHEN" 
138 PRINT"EINEN GARTEN ZU UEBER-" 
2088 PRINT"QUEREN, DER MIT FALLEN" 


LEGALE RD 


Eine Publikation von CHIP 


“PIEL 


MANDEVRIEREN #IE „HREN"; 


BLAU" 
ı a5 
al 


De; 115 


zZ 
“INUTEN DAS BLAUE °%” HABEN WIE DIE OAHL ZW 


7 ABRECHNUNG"; 


sicht! Hinter diesem erwartet Sie ein 
Wachposten - dargestellt durch ein Karo. 
Dieser Wachposten schießt auf Sie, wenn er 
sich auf Sie zubewegt. Sollte Sie auch 
diese Hürde überwinden. haben Sie ihr Ziel 
erreicht. 

Dieses Programm besteht aus zwei Teilpro- 
grammen. Das erste beinhaltet eine Spiel- 
anleitung. das zweite das eigentliche 
Spiel. Die Anzahl der Versuche pro Durch- 
gang bestimmen Sie selbst. 

Der Autor hat auch ein Programm für 
Spiel mit Joystick. 


das 


Jan Schaefer und Werner Kratz 


218 PRINT"VERSEHEN IST. WENN" 

228 PRINT"UEBER, UNTER ODER NE-M" 
230 PRINT"BEN IHNEN SICH EINEN" 

249 FRINT"FALLE BEFINDET, DANNM" 
259 PRINT"ERSCHEINT DIE WARNUNGM" 
268 PRINT"->VORSICHT FALLES." 

278 PRINTTABCB;"M TASTE DRUECKEN M" 
288 GETA$: IFA$=""THEN289 

290 PRINT 

388 PRINT"WENN SIE NUN DEN GAR-M" 
318 PRINT"TEN UEBERQUERT HABEN," 
320 PRINT"GELANGEN SIE ZU EINEN" 
339 FRINT"ZAUN, DEN SIE NICHTM" 

349 PRINT"UEBERSCHREITEN KOENNEN" 
358 PRINT". ABER ES BEFINDETM" 

359 FRINT"SICH EIN LOCH DARIN, M" 

378 PRINT"DAHINTER ERWARTET SIER" 
388 FRINT"EIN WAECHTER DER RUFM" 
330 PRINT"AUF SIE SCHIESST, WENN" 
488 PRINTTAB(33:"M TASTE DRUECKEN W" 
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418 
428 
430 
440 
458 
460 
478 
488 
498 
80 
318 
320 
530 
548 
550 
368 
578 
588 
598 
608 
618 
620 
= 

630 
548 
658 
650 
678 
639 
638 
?88 
718 
?28 


GETB$: IFB$=""THEN418 

PRINT"T" 

PRINT"ER RUF SIE ZUKOMMT. M" 
PRINT"WENN SIE DAS ALLESM" 
PRINT"MIT MOEGLICHST WENIGM" 
PRINT"VERSUCHEN UEBERSTANDEN" 
PRINT"HABEN, HABEN SIE ESM" 
PRINT"GESCHAFFT. M" 
PRINTTABC3I:"M TASTE DRUECKEN E" 
GETC$: IFC$=""THENSQQ 

PRINT"T" 

PRINT"GEGANGEN WIRD SO: M" 

PRINT" iM 

PRINT" 2 
PRINT" I" 

PRINT" a zu num! 

PRINT" = 

PRINT" ya" 

PRINT" N" 

PRINT"ODER MIT JOYSTICK." 

GETD$: IFD£=""THENG1O 

BZ=4%#(PEEK. (36866? AND1287 +64 PEEK 36869? AND129) : BF=37898+4KCPEEK C363E6’ANDIZ 


PRINT"" 

PRINT 

PRINT"WIEVIEL VERSUCHE WOL-" 

PRINT"LEN SIE RISKIEREN" 

PRINT"'TI" 

PRINTTABf173: INPUTFL 

IFFL<18THEN?18 

PRIMT:PRINT"SIE SCHAFFEN ES AUCH MIT WENIGER VERSUCHEN!" :GOT0728 
IFFLZ1THENSSO 

IFFL£>INT<FLYTHENPRINT"WIE STELLEN SIE SICH DRS VOR- HALBE MRENN- SCHEN ODE 


R SO WAS?" 


738 
748 
758 
768 
778 
788 
798 
828 
818 
828 
838 
848 
858 
860 
878 
888 
898 
998 
918 
928 
930 
948 
958 
968 
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PRINT: IFFL£>INT<{FLITHEN65Q 
PRINT" 

FORI=BFTOBF+S06 

POKEI,8: NEXT 

FORI=B2+22T08B2+43 

POKE1, 182: NEXT 
FORI=BZ2+462T0B2+483 
POKEI,182:NEXT 

R=BZ+64: B=B2+468 
FORI=ATOBSTEP22 

POKEI,96+128 

IFI=BZ+460THENA=A+1 :B=B+1:GOT0828 
NEXT 

FORI=BZ+62T0BZ+458STEP22 
POKEI, 91: NEXT 

AR= (BZ+62+ C22#CINTCRNDS1I#189 332 
POKERR, 32 

C=B2+44: D=B2+457:E=8 

FORI=CTOD 

IFI>BZ+44+1 7+EX22THENI=1+4:E=E+1 
F=INTERNDCIPRZEI+L 

POKEI,F:'NEXT 

PM=BZ+242 

UU=INTCRNDC1?#3+2) 
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RERERENENEN 


Ren 


Er# 


N 


= 5 
* 


vi 


UEDERRETERT 


in ıa 


"\ 


- 


372 FORI=1T06 
332 R=CINTERNDEDKZE)+I) 
SR RCI=R 


1222 
ıe12 
1222 
1259 
1242 
1252 
1869 
1878 
1260 
1892 
1188 
1118 
1128 
1138 
1148 
1158 
1160 
1178 
1188 
1198 
1288 
1218 
1228 
1238 
1248 
1258 
1268 
1278 
1288 
1298 
1308 
1318 
1328 
1338 
1348 
1358 
1368 
1378 
1390 
1398 
1488 


T01458 


1418 
1428 
1439 
1448 
1458 
1468 


. 1478 


1488 
1459 
1588 


FORU=ITOLSTEP-1 
IFARCU-13=ACIDTHENISQ 

NEXT: NEXT 

POKEPM, 81 
6(19=1:6023=-1:6637=22:6(4)=-22 
H=8 

0=B2+63:W=-22 

PRINT" VERSUCHE: "FL 
PRINTSPC (228) ,5PC(248) 


PRINTTAB<@)"7]" 

FORI=1T06: FORU=1T04 

IFPEEKCPM+GCUDI=ACIITHENPRINT" >VORSICHT FALLES" :G0T01148 
NEXT :NEXT 

PRINT" q 

1F0=B2+4590R0=BZ+63THENW=-W 


IFPM=ARTHENLL=9 
IFO=B2+459ANDLL=10RO=BZ+63ANDLL=1THENGOSUB1478 
POKEO, 32 

O=0+W 

POKEO, 98 

GETY$ 

Ri=0 

FORI=BTOUU ' 
IFPM=AR-TANDAR=O-1THENGOSUBISIO —° Ö 

NEXT 

IFY$=""THEN1148 

IFr&="U"THENR1=-22:60701318 

IFY$=" J"THENR1=1:G0T01318 

IFr$&="N"THENRI=22:G0T01318 

IFY$="H"THENRI=-1:G0T01318 

GOTO1148 

POKE36978, 15: POKE36874 , 224: FORI=9T058: NEXT : POKE36874,8 
POKEPM, 32: IFPEEKCPM+R1?=32THENGOTO1428 
IFPEEK(PM+R13CDI6+128THENGOTO1389 
IFPM+R1<>AR+ZTHEN1388 

FORI=BZ2+64T0BZ+468STEF22 

IFPM+RI=ITHENNF=1:GOT01648 

NEXT 
IFPEEKCPM+R1>>26ANDPEEKCPM+R1>CI3ZTHENPOKEPM, 81: G0T01148 
FORI=1T06 

Re an an aa ES 2 


NEXT . 

POKEPM+R1,81 

IFPM=ARANDR1=1THENGOSUB1470 > = 

PM=PM+R1:GOT01979 

IFFL=8THEN166® 

GOT01878 

LL=1 

IFPM>ORNDW>-WTHEN1 598 

G0T01530 
FORI=0+22T0PMSTEF22:POKEI, 93: FORK=8TO18: NEXTK:POKEI , 32: NEXT :POKEFM+R1,32: PM 


=52+242 ei 


1518 
1528 


POKEPM,81:Ri=8:FL=FL-1:GOSUB1949:LL=9: IFFLS>OTHENRETURN N | S 
GOTO1668 
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1538 
1548 


IFPMZORND-WPWTHEN1SSQ 
GOT015S8 


1558 FORI=0-22TOPMSTEP-22:POKEI.93:FORK=BTO18:NEXTK:POKEI. 32: NEXT: POKEPM+R1, 32: P 
M=B2+242 


1568 
1578 
1588 


? 
21598 


42 
16508 
1618 
1629 
1638 
1648 
1658 
1668 
1678 
1688 
1698 
1798 
1718 
1728 
1738 
1748 
1758 
1768 
1778 
1788 
1798 
1808 
1818 
1829 
1839 
1848 
1858 
1868 
1878 
1888 
1898 
1908 
1918 
1928 
1938 

1940 


BE Wr den al ee ann 222 IFRESSENHENBENNIEN S 


GOTO1668 
RETURN © 


FORI=0-1TOPMSTEP-1:POKE1: 67: FORU=8T038: NEXTU:POKEI, 32:NEXTI:FL=FL-1:PM=B2+2 


GOSLIB1948 
IFFL=8THEN63999 
UU=INTCRND<1I%#3+23 
POKEPM,81:RETURN ?. 
FORI=8T022 :READGG' NEXT 


PRINT"T";SPC(283) ; "GRATULIERE!!! 
PRINT""SSPC(2913: "SIE HABEN LEIDER 


RERDGG 

IFGG=-1THENCLR RUN 
POKE36878, 18 

READBG 
IFBG<BTHENBG=ABSCBG? :HH=1 
FORI=BTOZ 

POKE36874+1,06 

NEXT 

FORI=®TOBG NEXT 

FORI=8T02 

POKE36874+1,8 

NEXT 

POKE36874:8 
IFHH=1THENH=8:GOT01828 
FORER=1T028: NEXT 

50T01678 

DATA281 888, 215, 688,219,2098 
DATA223, 888, 225: 690, 223,288 
DATA219, 898, 223,608, 219,208 
DATR215, 508, 291,490, -1 
nATRA215, 198, 215, 398,215, 190 
DATR225, 408, 225, 408, 228,428 
DATR228, 498, 235; -680, 231,208 
DATR22S, 298, ‚198, 235. 198 
DATA231 398, 225, 198,219,480 
DATAZ32, 908, 229, 308, 223, 198 
DATR223, 898, -1 


SIE HABEN GEWONNEN" :GOTO1678 
PECH GEHABT!" 


FORI=128T02553: POKE36874, I: FORU=@T038: NEXT: NEXT: POKE36874,0:RETURN 3: 


String Control _ 


STRING CONTROL sucht in einem String be- 
stimmte Zeichen beziehungsweise bestimmte 


Zeichenfolgen. Andreas Müller 


16 


Commodore VC-20 Programme 


122 REM EINGABE 318 IFZS=SLITHEN338 

ı12 GOSUB 60988 320 NEATZS 

122 PRINT"WELCHER STRING SOLL" 330 IFGC>OTHEN 380 

125 PRINT 348 PRINTS2$ 

132 PRINT"KONTROLLIERT WERDEN" 345 PRINT 

135 PRINT 359 PRINT"IST NICHT IM STRING" 
142 INPUT S1$ 355 PRINT 

1523 GOSUB 69098 368 PRINT" ENTHALTEN" 

152 PRINT"WAS SOLL IN DIESEN" 378 GOTO468 

165 PRINT 388 PRINTS2$ 

178 PRINT"STRING GESUCHT WERDEN" 385 PRINT 

175 PRINT 398 PRINT"IST"0, "MAL IM STRING" 
139 INPUT S2$ 489 PRINT" ENTHALTEN" 

1379 GOSUB 60808 485 PRINT 

288 REM EING. KONTR, 418 PRINT"UND ZWAR AN FOLGENDEN" 
218 LET X=LEN(S1$) 415 PRINT 

228 LET G=LEN(S2$) 428 PRINT"STELLEN:" 

238 IFX<OTHENI18 438 FORZS=2T0G-1 

243 REM VERGLEICH 448 PRINTACZS?; 

258 FORZS=1TOX 458 NEXTZS 

252 LET CS$=MID$CS1$, 25,0) 468 END 

278 1FCS$=S2$THENZ29B 39999 END 

282 GOTO 318 69888 PRINTCHR$C1473 RETURN 

290 LETA(GI=ZS 68891 REM BILDSCHIRM LOESCHEN 
2 LET G=G+1 68982 RETRUN 


w M) > = 
eo omg _ u ir Asa 
nir er ed Te RR 


Dieses ist ein Spiel, das die Grafik- und Ball möglichst lange im Spiel zu halten 
Tonmöglichkeiten des VC 20 in der Grund- und möglichst viele Punkte zu erreichen. 
version ausnützt. Das Spiel läuft auf Da das Programm eine Anleitung eingebaut 
allen Ausbaustufen des VC 20. da es die hat. erklärt es sich selbst. Man muß "MI- 
Anfangsadressen des Video- und Farbspei- NI-FLIPPER" oft genug gespielt haben. um 
chers selbst ermittelt. Sinn des Spieles alle Effekte des Programmes auch zu sehen. 
ist es, wie bei dem "echten" Flipper. den Timo Kissel 


PNIKE3ESY7?, 28: GE0SURSIAA 
DATA-1,-21,21.1,23, -23: 22,21,29 
DIML{3,RCH,0C33,UCHI:FORT=LTO3RERDLEII:NEST 
PRINT": FORI=1T03:PEADRCTI NEXT 
FORI=1T03:READUCIS:NEMT 
FORI=1T03:0C19=-UET5 NEXT 
L=368793: T=36R74 ! POKEL. 15: POEET, A 
RS=3#LPEEKLIESSS ANDI ZSI+EIRLPEEK LESE) AHDI2A) 
FA=4#tPEER ISSEEIAHD1283+37838 
Ai" MOREON 0 
nJg="": FORIT=1T023:D0E-DOE+H"M" NEXT 
BaE=LEFTECDOR, 2134" Reg BR 
FORI=FATOFA+39G :POKEI. 2:NEXT 
PE=LEFTECDOF, ZI H PKTEIBBADNE" 


in AH Ada Wa Pr CO 


var. 


NN ld TO re CD 


Der ur 
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Spiele 


FRIHT"SIRERERkE FLIPPER KEREREN" 

FRINT"=M alles 

PRIHTLEFTEEDOF, 213" Brad Be 
PRINTER": :FORI=1TO18:PRINTTARCAI"®" NEXT 
PRIHT"SEEIM" : :FORI=1TDIS:FFINTTABEZOI"Z": Nah 
BiF=LEFTECDOF, 219+"M Ban ee _| ko 
B2F=LEFTEFEDDE 21H" Hi BR ee 

FORI=1T025 

“=INTELSKRHUDEL DHL SHE Y=CIMNTELSERHDCLI+ IT E22 

Lert+t+RE Za2=Htr+FA 

FOKEZ, 1R2: FOKEZE, 2:°NEXT 

PRINT" SM Are Tananan " 

PRTMT"SHTSTETDRTRTETN 131 1 1123-102 23.0] 152 

PRINT" SIMDeiete! HH + 

PRIMT' STRTEIMISTaTHTn IRRRBERIE 

PRINT" STATSTATaTainTann IBEBBIe 

RH=? 

Bar$=LEFTECNOF, 195 +"BALLIBEN" 

8 PRINTRAEBH 

293 P=21'R1=PBS+s3+P 

aa PNKEL. 15: IFPEEKC197I=62THENFFINTBIF 

181 IFTR=12THENPRINT"SIDELNEIPERINEOGENLS" 

122 IFTR=12THEHP=P+SaAA  FORI=128STN254 : POIKET : I: PONKET+1, I: POKET+2, I: POKET+3, T’NEST 
1a3 IFTR=e12THENPOKET: A: POKET+1.9:POKET+2,8:POKET+3,8 

194 IFTR=12THENFFINT'OM IM m TE 3 " 

185 IFTR=12THENFRIHT" SOON ul ":TR=8O 

186 PRINT"S"PEF"S" 

11a IFPEEK«1977=7THENFFINTR2E 

13a IFPEEKt1973=64THENPRINTR?2E 

15A IFFEEKCRI+RI=3ZTHENZAR 

16@ IFPEEKCRI+RT=LA2THENP=P+5: POKET . 280: #4=SINC1233 :POKET,® 

185 IFPEEKSRI+RI=SZAITHENP=P+509: POKET. 129: POKET+1. 202: FOKET+2, 248: K4=SINE123) 8% 
=SINE12 

166 IFPEEK<RI+RI=PAATHENPOKET, A: POKET+1,2:POKET+2.A 

17a IFPEEKCRI+RI=LASTHENPIKERI+R, 32: P=P+59:FNPRI=128T02AR: POKET. I:NEXT:FOKET.A:!TR 
=TR+i 

1759 IFPEEKLRI+RI=219THENP=P+1A: POKET, 148: POKET+3, 179: 4%=SINL 123: POKET.A:POKET+3 


IIND O AI N DI 


18a IFPEEKCRI+FN=42THENP=P+1D0:FORIT=169T02A8: POKET,T:POKET+1, I-29'NEXT 
181 IFPEEKCRI+R?=42THENPOKET.,@:POKET+1.@:POKERI+P. 32 

195 IFPEEK{RI1+RI=232THENPOKET, 159:%%=SIN 1233: POKET,R 

223 IFR=NLIORR-OLSIORR=NCHDTHENR=UEINTESKRNDELI+LII:GOTNZIR 
212 IFF=UC DORRSUCHORR=ULI) THENR=NTINTCIERNDELI41II:GOTO2IM 
22a IFR=LtLDORF=SLLZIORPSLCEIP THENR=REINTCHKPNDE1I+1II:GOTO2IA 
220 IFR=RCLIORRSRESIORF=SRLSITHENF=LEINTEISERNDEII+LII 

ze IFLRI+FIFRS+4ELTHEHAAD 

231 IFPEEKCRI+RITHIZTHENZAR 

293 Ri=R1+R:POKERI-R,32 

aaa FOKER1,31:G0TO1ER 

4aA FORI=12STNZ5ASTERE: POKET+3, 1: FORIT=1TN19:POKEL. T:NEXT: NEXT 
413 POKEL.@:FOKET+3,8 

412 Bx4=B#-1: IFBADATHENPRINTBAFBE: GOTD93 

428 PRINT’ GAME WER! 

430 PRINT"EPOINTS:F"P 

440 FRINT"=" 'POKE1S8.8:END 

=an PRINT"IE MIHI-FLIPPER " 

z12 PRINT"MSIINI- ANLEITUNG 

sea PRIHT"MUSTEUERUNG: 
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=38 PRINT"MFLIPPER LIHKS :SCLF MERNHOME 
san PRINT"MFLIPPER FECHTS:SINSTANBADEL ® 
“se FRINT'SIM = FASTEe- 

569 GETRF: IFAF=""THENSSO 

"61 POKE36879: 38 

29 PRINT". MIMNI-FLIPPER " 

=?1 PRINT"SWIINI- AHLEITUHG 

sea PEINT"WERLNKTENERTUNG 

se? PRINT'"MER = 5  PIINKTE 

=83 PRINT"MHM = 19 PLHNKTE 


PRINT"MIa = SO PUNKTE 
PRINT'W# = 1A FUNKTE 
FRIHT'manSH = 520 PUNKTE 
FRINT"WWEHN ALLE a” AR- 
PRINT"GESCHOSSEN SIND. GIBT 
PRINT"ES Aa PUNKTEN! 


PRINT" SM =TE=TE> 
GETA&: IFAF=""THENSS1 
POKE36879, 253 

RETLIRN 


Geben Sie einzelne Buchstaben ein. Das 
Programm gibt Ihnen an. ob und wo der 


Buchstabe in dem zu suchenden Wort 
vorhanden ist. Sie müssen das Wort mit 
möglichst wenigen Buchstaben erraten. 


Timo Kissel 


12898 DIM R$C255> : DIMBSC255> :DIMCHC2SS) 
1901 LS=B:PRINT"TIMMRUCHSTABENSPIEL" 


1892 PRINT"SEIIMDESGEBEN SIE EIN WORT EINUND DRUECKEN SIE DANN “7° I" 


1993 Ni1=2 

1884 FORN=1T0235: BECNd="-"!C$CNI="-" NEXT 
1299 FORN=1T0255 

12865 L9=L8+1 

19887 GETRECN) 

1808 IF AFCN)=""THEN 1997 

19993 PRINT" STHTNTETSTNTETNTNTRINISTWERIEL f 
181A Hi=NI1+1: IFAFCND=" T"THEN1915 
1812 NEXT 

1815 Ni=N1-1 

1816 PRINT"T" 

1817 N2=0:N3= 

1112 PRINT" 


ISERRE!" :250-L8,1L3,A$CN) 


1113 FORN=1TONI PRINT"; :AX=SINC1233 :PRINT" IM :PRINTBECNY NEXT 


1289 PRINT:PRINT"MEIMRATEN SIE EINEN BUCHSTABEN!" 


1218 GETDE: IFD$=""THEN1219 
1211 PRINTDE:N3=N3+1: IFDF=" T"THEN125O 


1228 FORN=1TONI: IFASCNI=DFTHENBSCNHI=ASFENI !N2=N2+ 1 RFCHI=SCHCN) 


1221 NEXT 

1238 IFN2=NITHEN1388 

1231 PRINTNZ 

1248 GOT01112 

1258 FORN=1TONI :PRINTA$SCNY  :NEXT:PRINT"M" 
1251 50701394 

1399 PRINT" 
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1381 FORN=1TONI :PRINTBFCN?: NEXT 
1392 
1393 
1304 
1395 
1396 
1397 
1308 
1594 
2208 


PRINT"ES WAREN" ;N3; "VERSUCHE" 
PRINT"WEITER?LJ/ND" 

BETDE:IF DE=""THEN1395 
IFD£=" J" THENRUN 
IFD$="N"THENZ2298 

GNTD1305 

FORN=1TONI PRINTAFCHP; NEXT 
PRINT"I=" END 


PRINT:PRINT'MOOMIAGE RA TUL TER Emma" 


STRING CUT gibt den 
umgekehrt wieder aus. 


Andreas Müller 


eingegebenen String 


188 PRINTCHR$C147); 

118 PRINT"STRING BITTE EINGEBEN" 
128 INPUT Ai$ 

138 LET R=LEN(A$) 

148 DIM ASCA) 

158 FOR B=1T0A 

168 LET AFCBI=MIDSCAF,B, 1) 

178 NEXTB 


175 PRINTCHR$C147) 
188 FOR B=1TOR 

198 PRINTASCBD; 

288 NEXTB 

278 PRINT 

288 FOR B=ATOISTEP -1 
298 PRINTA$S(B); 

388 NEXTB 


römische 
natürlich 


Dieses 
Zahlenzeichen 
auch umgekehrt. 
Nach dem Starten des Programmes müssen Sie 
zuerst die gewünschte Umwandlungsart wäh- 
len. 


Programm verwandelt 
in arabische und 


R FNKERSSTS, AN ERTUTIgU 
a nMartt,” 
Sa DATAIAASEZ, Sana: 
a nATS1agea2. Sea 

1927 


tr TeTa-t,—1. 


Haben versehent - 
lich angewählt. so brauchen Sie die Ein- 
gabe nur mit RETURN zu bestätigen und Sie 
sind wieder im Menü. 


Sie einen Programmzweig 


E.Saller 


sa DATA-1,-1, mama, Sans, 1a, Sar lit 

aa TATA-1.-1.-1.5aRe: 110,507, 111 

11a DATR-1,-1,-1.-1, 1aaS. mar, 111 

120 DATA-1.-1,-1,-1,-1, 508, 114 

“2a DATR-1,-1,-1,-1:-1,-1,199 

142 NATASR99S . 22905, aaa, Saar, 119, AS, 111 
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= DATA-1.-1.2097, 2097, 1aac. Sa. 111 
“er mata-1,-1,-1.-1.2aa. 20a, 1a 

“a Foe1-17711 

on enR 1-17? 

vom 2ESR1.T 

2u@ NEXTI 

222 NEYTI 

2 TATAM.DSCL,K.YT 

222 READAF.PE.CH. DES. FE.ßE 


Eit, PRINT" TMIIROEM, > ARAB.M" 
29 FRINTTERREMMIE EIHGABE RITTEM" 
3232 R=1:M=A:l=fA:P=A 


= 
362 INPLTTIE 

ra TE=TA41 

272 TE=MINELTIE.T9.1) 
man TFTaN| ENFTLEITHENTAN 


„aa TETESTAETHENAINM 
22 V=1:HATnst 

a2 TFTELTBETHENMER 
san K=2:GNTOEIA 

2er IFTEISCETHEHAAA 
=72 K=3: 0979820 

zen TFTELTDETHENSZA 
aa K=4:50TN5 3 

z2a IFTEZ>EFTHENSSA 
239 K=3:5070630 

==a IFTECHFFTHENSSA 
SE0 K=6:noTneaa 

aa IFTELNRETUENGINM 
=2 Kerißotosze 

212 PRTNT"FALSCHE ETHGARE 1" 
za STAA 


ER YeartR,k 


san TFX<BTHENEIA 
SER Det 1-ABSLSCHEK-PI DIET L+D) 


ı Def 

a M=M+THTEMFLAN 
2 Rek-tRREIHTEH/LON 
72a TIFRCMATHEN3TR 
72@ REM 
zen PRINT"WHERT:":M 
saa GHSLRSARAA 

aaa PRINTITM:CLP:PRINTIRBMOEMTSCHE 7 
BRAPTSIHE ZAHLEN" 
sacı FRTMTIERTERI POEM, > AFAR,W 
#2 AFAR. > FOEM.® #2 ENDE” 

1205 FRIMT'TSEEMEITTE KAFHIEN SIE TI" 
‚919 RETTIE:TETLE=""THENLALA 

ıaza IFTIE="1"THENdO 

aaa IFTiE="Z"THENDARA 

aaa IFTIE="2"THENFRIET"T'SEHNN 

saca GOTGIAIN 


a 
2 
8 IFCHZTHENEIE 
A 
3 
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A.PRIHTITIBESERFE: > POEM," 


FRTNTDRDASETHGABE : m" 
TNPLUTTA: TFTA>39I99THENZA42 


a GATIZAEN 


4? PRINT"NICHT MOERLICH" 


 Gotzıama 
Aa T1S=STRELTA)TTE=-RICHTEETIE, 


£LEHLTIEN-1D) 


IFLENETTEI=SLTHENTTE="..."+TTF 


TFLENETTEI=2THENTTE=", T4TTE 
TFILEHTTEI=ATHENTTES"  "LTTE 


a TIE-MINELTTE,1NN 
| TOE-MINELTTE.2.15 


72 TRE=MINECTTE,3,15 


TAE=MIDELTTE.4,1) 
IFTIE="L"THEHTUESTUEF" MN 
IFTIES"I"THEHTIGSTUISH" ME" 


" TETIE="3"THEHTUESTUSFHTMMM" 
! IFT2E=" 1" THEHTUSSTUSFD" 


IFTZS=" 2" THENTLIESTUS+"RC" 


= TFT2ERNANTHENTIESTIEH ONE" 


TFT2E-"ANTHENTIIE-TIIGHOH" 
TFT2E="SHTHENTUESTUSH"D" 
TET2$="G"THENTUS=TUSHNO" 
IFT2g="7"THEHTUS-TUSHODOO" 


a TFTZE="R"THEHTUS=TLSH DECO" 


IFT2F="A"THENTUS=TUIG+" CM" 
IFT3E=" 1 "THENTUG=TLIRHN 

TET3E-"ONTHENTUIESTLIEH NEN 
TFTAG="AUTHEHTLGSTI EHEN 


 TFT3E-MANTHEHTLIESTÜIEH" KL" 
; TETIESSNTHENTUESTUGF"L" 


IFT3g="6" THENTUSSTUS+H" LK" 
IFTAE=" PT TUEHTLIESTURF EN" 


> IFTAE=S"S"THENTUFESTUSH" LAHM" 
ı IFT2E="@"THENTUSSTLUEH" SC" 


IFT4E=" 1" THENTUIESTUEHT" 


* TET4ESNINTHEHTIE-TIIEH" IT" 
? TFTAESNNTHENTUSSTIIEANTIT" 


TET4E="ANTHENTLIESTUIRH" TY" 


: IFTIE=S"S"THEHTUESTUEH"Y" 


IFT4E="G"THENTUESTUIEFTYT" 
TFT4E="FOTHENTUFSTLEHUTT" 


2 IFTAE="BUTHENTUFESTISHTYIII" 


IFT4E="9"THENTUESTUF+" IM" 
FRINT"MIST PREMTSCHM" 


a BRIHTTUFE 


4a GBNEIAKAAAO 


se) 


earaa PRINT" WIE 


sarataad 


aaa GETTIE! IFTISCH"E"THENGBRLO 
eAA2A RETURN 


ITTE *£7 DRUECKENB" 
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Erraten Sie das Wort des VC 20. Sie bekom- Sie können statt eines Buchstabens auch 


men 
Für 


die Anzahl der Buchstaben angezeigt. Steuerworte eingeben! 
jede falsche Antwort erhalten Sie 


einen Punktabzug und werden ein Stück mehr LOES : Der VC 20 zeigt Ihnen das gesuchte 
gehängt. Geben Sie die Buchstaben ein und Wort. 


der 
wie 


VC 20 zeigt Ihnen. ob, und wenn ja. NEXT: Der VC 20 geht zum nächsten Wort 
oft er im Lösungswort enthalten ist. über. 


Wenn Sie glauben. das Lösungswort zu ken- ENDE : Das Programm wird beendet. 


nen. 


tippen Sie es ganz ein. Bei einer 


richtigen Lösung bekommen Sie Pluspunkte. E.Saller 


= POKE36979. 38 


109 
318 
315 
324 
410 
422 
430 


Sa 


ae) 


YA Hohn 
DI DON HU ALart 
jan BES En a 0 Ben Een Zur Er Ze) 
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HE 


PRINT" 2" 

Z=INTCRNDETDRAZI +1 

RESTORE 

FÜRIT=1TOZ:RERDUF:NEXTI 

LETL=LENCUFS 

LETHE="" 

FORI=1TOL:H$=H$+"-":NEHTI 

PRIHT"SPUNKTE: "IZZ2$-1 

FRINT"SIIGESUCHT: ":H$ 

INPUT" SERBLOESUNG ";L$ 
IFLF="EHDE"THENPRINT"IGESUCHT: ";UR:END 
IFLE="LOES"THENPRINT"SWGESUCHT: ":U8:60T0520 


3 IFL£="NEXT" THENZZ=ZZ+3:GOT07AR 


IFL£=U£THEN?OR 
IFLEN£L$3>TTHENGOSUBFAR 
IFLEN“LFIFITHENGOTGSES 
Hf="":1D=0 

FORI=1TOL 

BE=MIDECU2,1,15 

CH=MIDECHF, 1.15 
IFL£=BESTHENNF=NE+RE: 1D=1:G0T0E70 
NE=HF+GE 

MEXTI 

HE=Nf 

IFID=ATHEHGOSLURAOO 

SOTOS85 

Z222 3. PRINT.T 

ZM=ZZ 

FORZZ=ITOZM 

GOSURASE 

NEXTZZ 

22=2M:GOTO218 

GOTN318 

DATAMOHDLANDUNG, GEBIRGE. COURO', LESERBRIEF , KOKOSNUSS, MISSISSIPPI, LANDZUHNGE 
DATAKAISER , FAHGELD, GLORUS, ZIGAPETTE, YIDENRECORDER, ASTROLNGE, DELTAHKER, FUSSEA 


; DATASCHIFF, INSEKTEN, SCHMETTERLING. TEPPICH, FEPTILIEN, AUSTRALIEN 


DATAHNSENMATZ, HECKENSCHERFE ‚ BADEHNSE . KEHRBESEN 
DATAOFENROHR , HASENSTALL ‚ FOSENBEET : SONNENSCHIRM. SOFRKISSEN 


s2 DATAALTODACH. KLICHENBLECH, GEHERFESTEUER.. APFELTORTE, TISCHPLATTE, GARTEHZALN 
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ww ın 


gb u u u u 


IM IHR EI A U A I u A a a 


nn 2 wi} 


©3232 NATARADEMEISTER, BLECHNNSE. FERNSEHSCHIRM, BILD, RASEN, FOTOAPPARAT 


=43 1FZZ<ATHEHNRETIURN 

=s2 INZZGOTO1ARB. 1001, 1085, Laae. 1007, 1908, 1849, 1918. 1012,1014:1016,2008 
=s3 RETUFH 

1oR2 
me! PRINT SEE 
1222 FORP=1TNM1 

1223 PRINT"2":NEXTP:PETURN 

1225 PRINT" BETRITT — " PETUPN 


927 PR THT ERRDRDERDNTTEEDEERN 1 RETURN 

1393 PRINT" BESTUTKDDDDT" RETLIFH 
TRTRBRBEI |" RETURN 

REEL"  FETLIPN 

18212 PRIHT'" ESUDDUTETRTE ? BBAr." :RETUFN 

1214 PRINT" WEROTTTOETEREORDETETRTETRBIBIBIL/" RETURN 

1315 PRINT" SRIDBITRRERTDDORBRRART." :RETURM 

a8 PRTKT SERTEERTBDNTBTEEETETRTTT TE STD 

289" ee N. _ 


2215 ORT SEELEN 7 2 

2820 GETTF: IFT$C>H" TYAHDTEZ>"N"THEN2920 

aa3e IFT£="T"THENRUMN 

za49 PRIHT"TT'END 

zaea PRINT" TTHANG-MAHR" 

zaıa FRIHT"MMSIE MLESSEN EIN WORT ERRATEN I" 

=222 PRINT"IRATEN SIE EINEN BUCH- STABEN UND DER WC-208 ZEIGT IHNEN AN WELCHEN" 
=2a329 PRINT"TBTELLEN EP VORKOMMT 1" 

=343 PRINT"MWEHH 2 in an HISSEN GEBEN SIE ES GANZ EIN !" 
=a42 FRINT"ZMENEI 5 

5243 SETTE: IFTSCHEUTHENSAAS 

sese PRINT"TIFLER JEDE FALSCHE AHTNORT 


Ss2asR FRINT"M -BUCHSTABE KOMMT IM MORT NICHT YOR" 

se?2 PRINT" -MHORT IST FALSCH GERATENM" 

zart PRIHT"HRENGT SIE DER WC-2@ EIM STUECK AUF" 

2293 FRINT"WELER JEDES RICHTIGE WHORT ERHALTEN SIE 2 PLUSPUNKTE" 


51208 PRINT"MSSTELERNORTER" 

s128 FPRINT"ENDE = ENDE 

5139 PRINT"NEXT = NEUES WORT 
szaa FRINT"ZEEITTE 7£° DRUECKEN Im" 
s218 GETTF:IFTECI"E"THENS21O 

5228 5S0T0109 


Sier werden aus den Bewerbern die optima- mand übrigbleibt. Sie können aber bei 
lien Paare ausgewählt. Dazu müssen Sie ungeraden Herren- oder Damenzahlen ruhig 
zuerst die Anzahl der zur Wahl stehenden aufrunden und die Fragen mit RETURN beant- 
®aare angeben. (Paare deshalb. damit nie- worten). 
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Anschließend fragt der VC 20 eine anschei- 
nend unverständliche Sache. Aber Sie lesen 
schon richtig. denn es könnte ja sein. daß 
ein Mann zu allen weiblichen Wesen besser 
paßt als jeder andere. Um dies zu verhin- 
dern. können Sie mit "N" antworten. 


a POKE3SS?A, 2A: PRINT"ET" 
= PRINT" TIIMPARTHERMAHL EM" 
1a THPLUTIMMMNZRHL PAARE ";AM'AF=AM 


1= PRINT"IMMARF EIH MAHH MEHRMALSVERWENTET 
HERDEH £.T2H3" 


TNPUTHE: TFRELH" Tanne nun Turn 
TTMEMFAMY SEFOSEN  SMErSMN AEerSen N 
AATHTUMN 
! ENMT-1TnOM 
a BRTHTF:", MARIN 
THPUT"IHIAME : ";OM$L7) 
PRINT 
HEXTZ 
PRINT" 
FNPZ=1TNAF 
BETHTF", FR,eLY" 
Aa TNPLTIWHAME:"ISFECTY 
PRINT 
=, NEXT? 
A FE="M" 
= 7=A 
m ZH: IFFIAMARNTERMNTUENTE-HEN  ONTN11S 
; BOTUTTeeg 
3 TFFES"MNTHENPRTHTEMEFTNENTNIAS 
ı SRTUTOFELTY 
345 PRTMT hemmen" 
PRINT"BIÄHTUORTEH: 1 rTe Em 
{= ENTSCHIEDEN Ja 
PRTAT"Y = ENTSCHIEDEN NEIN" 


15, PRINT Rennen 


5 ne 
-e 


MIN m 
39 


er > Bar un iR 


De a GE Won Want Ba BE 2 
! 


DI 0 


159 PRIKTTLIAR HALTEN STE YAM 
FREIER ı Tepe on 

a1 ananiagan 

12 PATHTIMIAE HALTEN SIE VON ASTRNLOGIE ?" 

162 GNSLImIAAARA 

164 PRINT"WSCHNARTCHEN STE 7" 

{es snsIr1aaaa 

168 PRINTUM_TEREN SIE BRAHMS ?" 

167 GneLRiamaa 


Fuel 


168 PRINT"WERDIENEN RERZTE 

ı ANSLRıaMan 

| PRTHTIWMIALBEN STE AM AOTT 7 
{ Rneımıanna 

2 PRINTIWPAICHEN are zu 


3 enemaman 
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W3= UNENTSCHIEDEN ; 


Nun müssen Sie die Namen der Bewerber 
eingeben und anschließend muß jede Person 
ihre persönlichen Fragen beantworten. 
Im Zuge des Datenschutzes werden 
eigenen Angaben vertraulich behandelt. 
über das Ergebnis werden Sie staunen!!! 


Ihre 


174 


ie! 


PRINT"MTRINKEN SIE 7" 
GFOSLIEIAABA 


PRINT"WSOLTTEN VERHETOATETE 
GETPEHNT UPLALB MACHEN" 


SNELB LARGE 
8 PRTNT"MGLALREN SIE AH DIESE 
AUSWERTUNG 9" 


2 GazuR1aman 

A PRIHTIINAS HALTEN STE VOM 
FRAUEN TH MRENMEN- REFUFEN 7" 
anemi mann 

PR EHT. KERSMEHLEN STE BUNTE 
3 GNSLURLAARA 

IPs F ABNESSAFTRERSSR 

3 cargıza 

A TESE=AMTUFHTM=AF 

a TFAF>AMTHENZM=RAM 

ara TFAFLAMTHENZM=RF 

aA FORZ=ITOZM 

; MA=-A9A9S9 

A FOER=TTOAM 
NU=AREFOFLTN-EMINNN 

A TENMNSTHERMA-NK MY 

a HEHTX 

= NINA 


UITZE 


N 


gen 

aaa 
1aRs 
1m1f 
1e20 
aaa 
1m4n 
2939 
aaa 
1aa1a 


NESTZ 
PRINT'TIRUSNERTUHGE" 
FRIHT 
FORZ=1TATM 
ARTHTerEr?N: 
PRIHT 
HEUT? 
EHT: 

REM 

nerat . rerat.n " rueret am4 a 


an MEERE ED 


ana 
aaa 
Tamaa 
ıaneR 
aaa 


Alm rary 

TER ANPAETHERHaRin 
TFZE-"ERTUERN SAN 
EMLZI=EMCTISATRETLUFN 
SFLEISSFLEIHA:RETUFH 
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Szzwern Sie mit Ihrem Panzer über das 
Schlachtfeld. Aber der Gegner hat Minen 
zelegt. Durch die liegengebliebenen Wracks 
siırd das Spiel immer schwerer. je länger 
=< dauert (besonders in Level 2). 


=_.Saller 


= nnsııpzaman 
42 TI8="amaanan :PNKERSA, 128 


>23 


PNKFISR?A,S:PRINT"T" 
a 
SEANR:PIKER, 1M2 

NET 
NATATIEA, 7267. 7397. 7808,78 


PAraraI2, Fan. Fang, Fan], FarD 7aI2,7as4,7a71.7972,7973,7993.7994 
MI=THTERNDELEEAAIHTERE 

TERFEKCMLHCHSSTHEN2A 

M2=IHTERNNEHTESAANH FERN 

TEOEEUMINCNASTHEN AN 

SORA=FERATDEIEAH2ASTEP22 

PAEA, R2:POKER+2I , 92 

NEMT 

S=INTIRHTENNERAANATERA 
TFEEEWLRILDRONEPFER LO IPAMNRPEEF PA NCHSTHEN1AA 
TEPEeWER-DONCHSDORPEEKLC+DI2ICHF2THENL AN 
TFO=MIORD=M2THEN14M 

REM 

TFWALLTTENSOMATHEHDFAAR 

TFPI=ATHENROSLRDAAAA 

TFPEEF CL 197 9=3ANNCH?723THENGOSURI FARM O-0-22 Net DSB ARAA 
Tem =ATHERAAERTARAA 

TFREEK APIS FTHEHSNSUBE AAO MP 1N=2: GOISLIRT AARR 


a a RE 


= TFT =ATUEHANELRTAAAA 


TERFEKLLAFI=LSTHEHGASUBISAOR: C=C+t D=4: GNSUBLAAAR 
IFZ1=ATHENEOSUBDARAR 


TEOEEKIATNEIRATHENAA 
TFLICSOTUEHAAR 
| 921 941: TFLZCITHENDAA 


FOSURLFARR 

TFn=1 THENC=L-22: GOSUPLAAAA: 1 2=A aNTOaaR 
TEN-ITHEHL-DHDIGNSURLAAAA:LISAGNTORAM 
TEN=2THENL=L-1 GNSURLAAAA:L3=M:CNTDFAA 
TFN=4THEHR=O+H RNSURIADAR 1 2=MANTTFAR 
anrnann 

anrnaaa 


zea09 177=-MINRE=MITHEHZERAE 
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9.7899. 7991. 7OAR, -aAR, 731M.7211.7912.7928,793q, 72 
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nam 

ıaaaz 
aaa 
a1 
1aaaa 


11m 
az 
La2aa 
mann 
12aaR 
ıam1A 
aaa 


aaa 


zaman 
zanas 
22m 
ROSS 


ange 


ee loleir, 
22079 
Pete lale 


seann 


TEDEEKCYCHAINRPEERCR-1IC>320RPEEKEC+1ICHA2THENDERAR 
IFPEEKLC-22YC>320RPEEK 0422) C>32THENZEMAR 

TEN THENLA1AA 

IFN=2THENLADAA 

IFI=3THEN1 A200 

IFD=ATHENIM4AA 


A RETUFH 


PAKET. RI PNWET= TAT :PNFER-1 192: PNKEr-79. ER! RETUPH 
PIKFER a1 :PAFET-1 , 192: POKEC+1 . 191 POKEC+22, 66° RETURN 
POKET. 81: POKEC-22, 1AM: POKEC+22. 99: POKEL-1 64: PETUFM 
ANKEN AI POKEC-22. 1AR: POKEC+22. 9: POKEC+1., 64: RETURN 
IFD=1THEN!31RQ 
TFN=PTHEH1FIAA 
TEN=ITHENI FIR 
FEN-ATLEH ARD 


19 
1m 


PETIIEH 
PAKER Am ENMFFr41 ,32 !PNKEC-1.32 :POKEC-22,32:RETURN 
3 PNKER.32:FOKEC-1,32 :POFKER+1.22 !POKET+22,.32:PETIUFM 


PROKET. 32: POEEC-22,32 "POKEC+22.32: POKEC=-1.32°RETÜRN 
a DNPEL, AP: POKER-22.22 PNFErLGI, A ANKER AD: PETIPN 


Her TO THTLARN IE STERN 
TFBEEWETESCNAOTUENSAAAN 


| ANKER? ,MPETUPH 
3 PNKERER?T, 1BR:POKEIES?E 
3 IFD=ITHEHEI=-27 


Per 


IFNe2THEHE1 #22 
IFD=ITHENEI=-1 
IFN=4THEHE1=1 
E2=t+E1 
E2=E2+E1 


IFPEEKLERICHROARINDERF FERN FSOTUCHPNAYERES?R, A POKEF?-FI 2: PFTIIAH 


TFEIFEAANPEIHST AL TUENPNAFEREATR,A:PETUFRH 
IFPEEKCE2I=ATHENZ2RAAN 

FOREE2, 42 :POKEE2-E1 32: 607023959 

POKER: LAT"POKE3ES?? APOKEIIE,O 
PRTHT"S:TARLIIY"EMTNE" 


12a GASLRSIAAR 


> POKE3ES77, 220 


FORL=1STNASTEP-1 


I2 ANFFARATE I. 
Y PNPM-ı Tann 


I HEYT 
2 TELZATUENANEDI AA 
ı NET 


} POKE36977.M: END 


a FOFEC, 195: POKE26377.9: POKEI1AR, A 


RRINT"MNSTARLISITRCRASH " 


aa SNneestaag 


> PNKEREE??. 220 
FORL=1STOASTEP-1 


2a ENPM=TnaOR 


BELER, 
rad 
Psadd 
ara 
27a 


26 


I MEUT 


TFLZATHENENSURITAAR 

NEMTL 

PIEFZERTF.OIENT 

PNKER.. 195: POEE36377, 1938: POKE198, 0 
FORA=13TNOSTEP-. 2: PIKE2ER?S,A:HEMT 
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m Ze DE 


SRTHTFRMTARCLSINSZEIT" END 
ANKEF2-E1 ,32:PNKEE2, 127 
PNKE2ER?7, 193 


SP-ATA1AA:71=M 


a PRINTFYINTARCONTEN 


BETIIBH 


3 PNIVERES?O, 26: PRINT"TERER PAHZERSCHLACHT re" 


PRINT"WSIE MUSSEH NIE FETINN- LICHEN EINDRINGLINGE 


A PRIHT"EEIE HRREN 2 MINUTEN ZEIT " 
a PRINT"WACHTEN STE AlIE DIE — HTNNERHTSEEI" 


AATHTIFMER FEGNEP HAT MINEN RELERT" 


a PRTHTIEMTE WRACYE WERSPERPEN THNEN ABER DEN WEG 1" 


PRINT"WRERITTE EINE TASTER" 


aA GETTE:TFTE=" "THENSOA?O 
a PRTNTITMETELIERUNG: MM" 


A PRINT" 121.) Er FM 
ı ERTNTIE CR =  FEIER 


PRTEITTEEREANEE SET I EUEN ig" 


an per = LEICHT DD = SCHWER" 


BETLIF: IFLIF=""THENSEIAA 
LI=MAL te) 


A TFLISPIANDLIZD2ZTHENSOIAA 
RA RETLURH 

a IFD=1THEHSI1AM 

ı TFNe1 THEHS11AM 


IFD=2THEHSI DA 


A TEN=ITHENSIFAD 


TEN=4THEHSI1 AA 


a RETIRH 


POKEN AR: PNKER+T 42 :POKEC-1.42 "POKEC-22.42: RETLUPM 


2a PNKEL,42:POKEC-1.42 :POKET+1.42 "PNKET+22,42:PETURN 
| PNVER, AD POFEO-22,42 SPOKEC+22,42:POKELD-1,42:RETUIPH 
A POKER.42:POKEL-22,49 :PNFEr+22. 49: PNVEN+1 ‚42: PETLIPH 


VERNICHTEN 1" 


sie 
liche 
Abweh 
Aber 
E.Sal 


EN 


e 
a TT8 
‘ 
1 


steuern ein U-Boot vor der heimat- 
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n Küste. Ihre Aufgabe besteht in der 

r der feindlichen Landungsfahrzeuge. 

achten Sie auf die Sandbänke. 

ler 

NRASAAN ; PL. 31.111 Keep Sage Sa ep 

Elle tcielcinichl PRIHT"T w w w w won 

aaa? 129 FORA=ITNZ:PRTNTTABCSY"T "CMEXT 

NKE3SS?T9, 11A:PRINT"T" 122 PRIHT" MAN" FOPA=-1 TOS:PPRTNTTARCEN"NT MI NEMT 
27 


ie.) Mesa 

1m ANEA-ITHN! epr urTanrı -\ na. HEUT 

128 PRTETEE  EORA=LTN2:PRINTTARLLSI" "SHEXT 
129 FORA=334NATNIBAR4+DA:PNKEA.MIHENT 


132 FNAA=FRIATASIAIRTEP22 
132 POWER, S7:POKER+2], IMS NEXT 
gaa REM 


Anz IF 
= 


YALKLTIEIFZEATHENZSAAA 


za GISURIAAAN 
ein TFPEEKLISFN=ATHENN=-22: CT 2A 


ga TFPEFKIATI=17THERN--1 ENT SA 
FRA TFBEFLIATI-TATHEND=+1:GOTNIRAR 
Saa IFPEFKLLIFIS2ETHEND=+22:G0TO1SAR 
g50 IFPEEKLLITI=AITHENRMELRISARA 
aan ANSUIBITAAA: D=BHN:ANSLRLAAAA 
zaaa ANTOGOM 


4339 PRINT" Le a m yon 
1aRaR TEREEVEDIERSOORPERKEB-1ILDAMNDDEEV BA NCMSDORPEEKLR-21ICDB2THENZEARR 


N 


| PAPER. 192 PNKER-1., 192: POKER+1, 192 POIKER-21 SE RETURN 


PNKER. 22° POKER-1. 32 PNKEB+1,32:FOKER-21.32: RETURN 


a PIKE36877,199 


1A E=R-43 


13029 
18029 
Ssam 
azata 
„eis 
SERDA 
anna 
aaaaa 
ana 
22317 
SandR 
22922 
22030 
zaaan 
zanea 
aanan 
„an 
aaa 
3aaaa 
anaan 
ans 


TFPEFKLEI=1ASTHENA I AaA 
TFPEFKFEI=ROTUENENWER, 4E 


| FNAAISTNASTER-. 7PNKEAIERFRACHEUT 


F=E-22: TFRREWE+D2)=4ETHENPOKEE+22, 32 


22 TFPEEKLEI=1ASTHENA LARA 


IFPEEK(EI=32THEHPNKER. de 


: TFELFFRATHEHRETLURH 


IFS=1 THENGOEURSARAR 

saTa1sazı 

ENKE36977,AAA:POKELAS,M 

PNKER. 42: PNFER-1 „AD PNKER+ ‚AD: POKER-21,42 
DeTNTIRMTARIDYHCRARn N 

ana mann 

PPIHTIESTABLI2Y"CRASH "END 

END 

PNKE36877., ARM: POIKEIAR. 

PNKER, 42: PNFER-1 ,42POKER+1 42: POKER-21.42 
PNKE3SSTE. 14 PNKE36B78. 15 
FORK=1TNaAA:HEYT 

PRIHTTMTERN/ITUNZETT m: 

aneuıpianaa 

ANVEARSFE A: PNKERERTE,M:EHN 

TFR-TUENaSANR 

E=IHTERNDELIES) 

TFES>THENRETURN 

E=INTERHDCLTEONH 


TFF=2THENS2=7?@9:61=-1:9=1: RETURN 


| S2=n24S1 
2 IFSI=1ANTISONFFOPTHENATAAA 
ı TER 1ANMSD/TFEITHENADAAN 


PWFa2-21 , 72 PAWEED-81-1,32:POIKES2-31+1.,32:POKES2-S1-21, 72° 


SA2@ PIIKES2, AS: POKES2+1 199 PNKES?-1., 1a: POKES2-21 94 RETURN 


41997 
arm 
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PNKES2-31 ,22:PNKES2-31-1 22: POKES2-S1+1, 22: PNKES?-S1-21.,22 
POKES?-S1 , AP POKE22-41-2, AR! PNKESI-E142 , 32: POKES2-C1-29, 22: PNKES2-51-29, 32 
HER Ann 
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Ark aA ha a 


aa SM AD-aCHtaA:PRINT"EMTARCI2I 4=97A PRTHTIWEIE HAREH > MIHNTEN 
"TREFFER ": ZEIT, DIE SCHIFFE FI VERNICHTEN! ® 

21249 PRINT"W"TARLL):SC:PETLPH 4SgaR PRINT"MSBRITTE EINE TASTER" 

aaa POKES2-E1. 30 :PNKEE2-E1-1,32: 4u09a GETTF:IFTE=""THENASAAP 
POKES?-S1 +1,32: POKES2-S1-21,32 AS1AD PRTHTUTE DIE PUNKTE" 

“a: FOKE2ER??.A:POKESGSTE, 15M aut PRINTTEIITREFFER = 10m" 

z2a11 PNKEIES?E, IS: FNPDA-tTNOAA:HEYT 45199 PRINT"IIMELANNETES 

aan PNKFARSTE.NM:ENKFAERTE,A SCHIEE = -2am" 

em? 2-1! SESER-FARIBRTHTIESITTOR/IDN . gez ARTUITIMIRMMERTTTE EIER TAZTEm! 
"GELANDET": ARIAR BETTEITETE-NNTHENASIAR 

amaan PRINTUSTTARCLISSC:RETURN ARISA RETURM 

#s220 PRINT"M" :POKE26879,2€ zıRaR POKE3EB77. 200 

as21m FRINT"EU-RMNT Tann" S1A1M FORL=1STNASTEP-.AS 

25229 PRTHTOFRTEUERUNG DES U-BONTS" S1a2a POKE3ESTR,LHNEVTIRETLUPN 

au02a PRINTTARCITIMIN sanam FOMERROFT.DEN ' 

2=940 PRINTTARCAH"A  T" e2a1A FORL=1STNASTEP-. AS 

asa5Q PRIHTTARCTYTMEN S215 TFLSSTHENGNSUBLAAAN 

asaen PRTuTUgen - FEIERN 32929 POKEIERFR.LNEYTPETUBH 


3ei diesem Spiel müssen Sie anfliegende 
WFOs abschießen. 
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REM TANK-Y-UFN BY D.LATER 
OF=39728 
YA=9H1ST3+14:YH=9815 13413 
FOKEVA+1.25 
PRIHT" STRTRTMTRTETRENTETRTTNTEINDNTRTRTRTRNTNTHUNTNTE 
PRINT" TAHK WERSUS UFO ik" 
PRINT"Z-LEFT.C-RIGHT, B- FIPE" 
FRINT' SEM 
FORA=384988TN38409+22%23: POKEA.B' NEXT: A=0O 

PRINTIN 1" 

PRINT" _4Q u 

PRINT" Kanal " 

FRIHT"TTT; 

IFPEEK (197 3=34THENGOSLUB3QR : A=A+1:G0T0228 

aa TFREEF.L19FI=IITHEHGOSUBIAA: A=A-1:G0TN22M 

35 TFPEEKX1973=35AHDR=-ATHENB=1:C=8979+R:L=1:P=15:POKEYN, 159: POKET , 6A: POKEC+HIF , 
4: 5070178 

136 IFL=dTHEN148 

137? POKEYA,P:P=P-1: IFP=-1THENL=9:POKEYHN,B 

149 IFB=ATHENI?B 

141 FORH=1TN2 

145 POKEC,32:C=C-2 

ı=a IFPEEK(L}= ee =42NFPEEK(TI=S2THENEAE 


KINIWImIR) 


3 ID (DON Are 


Der in I wei 


DR BE Bor Br rin] 


Ca a a u JA) 
ID I) 1a ra 


cH 
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IFCEFFA4ETHENBeR: GNTOI TA 


3 POKET, 46 


HEMT 


1 IFT=ATHENSAR 


IFD=dTHEN182 
POKEE , 32: POKEE-1,32: POKEE-2.32:K=K+1 
IFE=TTHEND=R: GOTN189 


3 E=E+1:POKEE,&2:POKEE-1.42:POKEE-2, 60 
ı IF.I=1THEN182 


IFIMTCC3196-E9/223=22-K-AAHDF=OTHENF=1:G=E+21:M=21:6070183 
GaT0193 

IFIMTE/SQ98-E}722)3=A-KANDF=ATHENF=1'G=E+23:M=23 
IFF=8THEHNL2S 

POKEG., 32:G=6G+M 

IFPEEK GI C>32THENFAR 

IFGF7689+22%21 THENF=9: GOTOSBR 


9 POKEG,31:GOTI125 


IFAZATHENA=A 
IFR>1STHENA=13 
FREMIIRBEA) 1)" 
PRIHTTARBCAY" _9  m_" 
PRINTTARCA>" Kanal" 
PRINT CTTT 2 GOT0835 
PRINTTARCAN" . 
FRIHTTAREAY" ’ 
PRINTTABCAD" 2 
PRIHT"ITTT" : :PETURH 
PRINTPEEK( 1979: GOTO4BA 
FOKEG, 56: POKEG+1, 78: POKEG-1 77: POKEG-20, 45: POKEG-21 , 46: POKEG-22,46 
POKEG-23. 46: POKEG-24 , 46 


A FORAA=TNIBA:NEHT 
4 POKEG. 32: POKEG+1 22: POKEG-1 32: POKEG-28, 32: POKEG-21 , 32: POKEG-22, 32 


POKEG-23, 32: POKEG-24 , 32 

GATO1:F 

POKEC. 168: POKEC+1, 169: POKEC-1., 168: POKEC-22, 169: POKEC+22, 168 
L=A 

POKEYN, 128+100 
FORGG=1STOASTER-1: POKEYR, GG: FORGH=1TN?A: NEXT :NEHT 

Fa 


16 POKER.? 2:POKEC+T. 32: Tr u Een en ee 


PIKEC- 22, 32:POKEC+22,3 
E=£+22+.]: POKEVA, 15: POKEWLO 


 POKEE,62:POKEE-1.42:POKEE-2 

5 FORO=248710233' POKEYN-1,0: Bean FORO=233T02485TEP-1:POKEYH-1.,@: NEXT 

? FOKEE 32 POFEE=1 , 32°POKEE-2,32 

7 TFE<TESOHZEKZ2ZTHENE4A 

HM ESERT 

= POKEE+22., 62: POKEE+21 ,42: POKEE+2R, 60: POKEE+NF , 4 FOKEE+NF-1,4: POKEE+OF-2, 4 


POKEE+22+0F, R:POKEE+21+NF, A: POKEE+ZO+NF, 32 

FOKEVN-1,9: POKEVYN, 128: FORO=1T028: POKEVYA. 15-INT(N/1.335 

PNKEE. 223: POKEE-1 , 223° POKEE-2, 223: FORO=1TOSA: NEXT 

PÜKEE, 223: POKEE-1 , 223: POKEE-2, 223: FORO=1T089: NEXT 

NEXT: POKEE. 32: POKEE-1.32:POKEE-2, 32: POKEE+22, 32: POKEE+21 .32:POKEE+29, 32 
PRINT" ARD" 

DLl=DU+1: PRINT" TEBIILIFOS" DU" TANKS"DT:PRINT"X 
SATOL2S 

POKEYN, 123: L=A 

A=fl+1: FORKL=1TO2ER: POKEYA,15-INTCKL/12> 
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7@4 PRINTTABCRI" BP" 7S2.BRINLSTIN., 

2728 PRINTTABCAI"R . 755 PRINT TERM u 

715 PRINT"/TT"; 757 NT=DT#1: PRINT" TRRMLFOS"DUNTANKS"DT: 
28 PRINTTABEAF" AITTTT PRINT!" MINDRTSDITSTKIRTETETKTRTEDN " 

728 PRINTTAB(AY"3A . ER F=a:A=0:GOTO185 

723% PRINT"'TT"; aa D=l:EsTrA2+INTERNDCLYKLHE22+28: I=E-2M 
742 NEXT K=A: J=-1: IFFHICLY>, STHENE=SE-21: IeE+ > 
743 PRINTTARB(CAS" ” :7=1 

7=2 PRINTTAB{AY" Ar sas GOTO172 


751 PRINTTABEA-12" er 


Sie haben 13 Versuche. um mit Ihren 
Zaketen vorbeifliegende UFOs abzuschießen. 


Commodore 


1 POKES2, 28: POKESE . 28: RESTORE: PRINT"T}-YC-28--SONDERZEICHEN-" : POKE36869, 255:50=36 
875 

2 N a Be nn a a a a 
1=1+128%3 

2 FORJ=AT0?:K=PEEKCF+TI+TI :POKES+I+J,K:NEXTJ: I 

4 REANI:IFI=-1THENG 

5 REANJ: FORK=ATO?: D=PEEKCK+F+1#8) : POKES+K+J%8., D: NEXT: GOTO4 

€ PEANT:IFI=-1THENIO 

? FORI=AT07:READK:FOKET&S+S+J,K:NEXT:GOTOS 

:a PNKE36869, 253: 0F=39729: PRIHT"T":C=31339:N=36977:POKEN+2, 238 

32 G=£A:Y=N+1:PRINT"SSH++RAKETEN-KOMMANDO+++" :POKEN, 9 

a5 PRINT"+FELIER+TASTE-DRUECKEN-" PRINT" +SHIFT+--SLPERRAKETEN-" 

4a PRINT" MIEININIEINDITRISDTFTG ERDOENDAERDLEIDGERDNERDIEFEFELFEFELREREFER" 

sd PRINT" TIENBRURRMERERITTTITTTTTTTTT  A=alro 
723 
7i 


F 


IFC=S122ANDB=ATHENPRINT" SMODNSQLT-OF-ROCKETS" : POKEY,8@: FORA=1T03988: NEXT: RUNA 
GETAE: IFAFC>" "ANDB=ATHENB=1 'POKEC+22.32:D=C'C=C-1:K=1'POKEN. 253:L=16'2Z=1:IFPE 
EK(ESSI=1THENZ=2 
72 IFK=1THENL=L-1:POKEV.L 
73 IFL=BTHEHK=A:POKEN.B 
sa 1FB=BTHEN11R 
25 FORI=1T0Z:POKED, 32: D=D-22: IFPEEKCDI>SIANDPEEK (DI LE3THENGOSUBSAR : GOTO7O 


128 NEXT: IFIK77AATHENB=B:GNTO11A 

195 POKED, 39:POKED+DF,2 

119 IFH=ATHEN289 

122 POKEF,32:'F=F+E 

125 IFF=TTHENH=R:GOT079 

1239 IFPEEKCFI=38THENGOSLBSAA: GOTO7R 

142 POKEF.G:POKEF+OF,C0:GOTN7Q 

292 EI=RNDELIESCH=1: IFINTERNDELI#2I=1THENES-1:F=?7792+CINTCRNDOLIRINI+EIR22: I=F-2 
2:G0T022@ 
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219 E=1:!F=resa+lINTERNDE DHL +S)E22: 1=F+22 

220 G=IHTERUNCDDR1MI+S2: IFGPGATHENG=EA 

239 IFH=BTHEN?R 

a GOTN12R 

Ssa@ B=9:H=A:SC=SC+H19: PRINT SERIBPLNKTE: "STRECSCH DOOR" 

PNKEF+OF ,4:POIKEF+1+0F ,4:POKEF-1+DF,4:POKEF+OF+22,4:POKEF-22+0F,4 

FOKEF , 42: POKEF+1 39: POKEF-1,36: POKEF+22, 33: POKEF-22,37:GOSL1B159A 

PÜKEF. 32: FOKEF+1.,32:POKEF-1.32:POKEF+22, 32: POKEF-22,32 
PNKEF+OF.@:POKEF+1+OF,A:POKEF-1+0F,@:POKEF+OF+22,8:POKEF-22+0F .A:POKEN, 
FOKEV. 19:5=239 : FORGH=FTOF+ZIKLESTEP22:'S=3-1POKEV-2,$: II=PEEKCGH) :POKEGH:G 
POKEGH+OF , 4: FORND=1TD19:HEAT:FOKEGH, TI: NEXT: POKEY-2,9:G05UR1S9B: RETURN 
na POKEN. 233: FORY=1ETORSTEP-1:POKEY, Y:NEXT: POKEN, B:RETURN 

13aA FOKEN. 163: FORF=1STOASTEP-1:FOKEV, 7: FORP=1TNSA:HEXT:NEXT:POKEN. 2 
zaAR TATASE. 28.169,45. 1790,43; 1 

2aaS DATA22, 16. 16:56, 49, 108,238, 239,56,62,24,68,86. 126, 
24,198 

ame DATRS4,56, 


"RETURN 
2A, 36,24,0,63.56:124,214, 


za1a DATA 69.0. 24.60, 99,255,126.24,9,35,198,33, 19,36, 68,37,18. 228, 36, 228, 18,39,6 
2,36,18 

20220 DATA 33.193,37:68, 178, 145.9, 24.95,1237,129,38. 129, 137,89,34,8,145,170,68 
2a3a DATA 59, 24.689,98, 153,255, 126, 163, 99.61.36. 126, 199, 165. 189, 126.66,231,-1 


Ss GOZUBLARA zra IFPEEECIPPI=IRTHENPI= 21:P4=72:60SUB2an 
1a POKE3ES72.I1:PRIHT"T" ea FOKE12S, A: POKEI97,9:607T0293 
2m IN=AELPREKNESERIAHTNIDRIHIFERR 252 S0OTI298 
za NO=SRLPEEKCIESAEIAHNTDRI+HEAELFEEK 292 IFL1=10RP2=ETHEN2OA 
CHEREEAIANDL2D) 224 IFLI=OTHEHROSURFAR: SATZ 
am FORA=-ZETI43: POKEUNT+R,3:POKELZ+A.1SN:HEXNT 295 FORA=1TOCLA-LIIETD 
sa FORA=ZETISEMSTER22 295 IFPEEK1SI)PATHENZ2AG 
sa POKER+II.TITROKER+U2, 160 237 HEMT 
Ta POKER+1+21.2:FOKER+UJ2+21, 1650 238 GOSUP2AR: GOTNZOR 
sa HET aaa FOKEIN+FI.Z:FOK en 
aa FORA=435T025: FOKEA+HN, 2: FOKER+HU2, 1A: 2318 Fi=Pi+F23 
MEIST a1i POKE3EB73. 15: FOKE3E37E. ZAQ 
33 Pi=2EL POKENT+RI, m: PNKELD+P1, 1A2:GATN19R =12 FORA=1TIAA:HENHT 
129 Deltl: IFN>1RATHEN2DAN 313 FOKE3SS783.,0: POKEIERFE:A 
1a1t F2=TNTERNDELIEAAOT +45 zza TFFEEKES+FITNIFISTHENGAN 
1120 TFPEEKLLS+PEIZPI2ZTHEN AA 329 POKEIN+PL.M:POKEL2+PI,P4 
122 POREIN+P2,5:POKELZ+PZ, 31 >42 RETUFH 
13% D-@:FETURH =aa TFPEEKLLUS+FTI=SITHENGAR 
122 GOSURIaA sa= POKE193.A:PRINT"SW"TARL12S"LERASH ® 
209 TFFEEKE1NFI= ATHENPI=-22:P4=6&:!60SUR3aa 519 POKEIES?S,1S 
21a IFFEEKLLISTISZETHENPF= 22: Pd=es:Gosupgam 511 FORA=ZZATNLAASTEP-,? 
220 TFPEEKLISFI=LSTHENFS= 1:P4=äsd!Goclipeaa 512 FOKE36S77,A:FORB=S1TO3O 
229 TFPEEKE19FI=IT7THENP3= -1:P4=64:G0SUB3aA 513 NEXT: NEXT: POKEIEST7T 0: POKE3ES?S.R 
2an 0 P4=7S:G0S1RZam SA EHN 
25a IFPEEKIFPFI=A4RTHENP?=-22:P4=77:G0Slpaaa aa SC=SCHlAN: FRINT"SE"TARCLISCHTARLI?N 
san TFPEEK197)= -S4THENP3= 22:P4=77:G0SUBZIAA SIREERERS 
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ae: PIKEINI+PI1,2:PNKELZ+P1.P4 a8 
Zı2 POKERES?T, 22 1109 
Er! FOAPA=1STOBSTER-.? 111 
212 POKERBSTE.A 1129 
<13 NEXT:POKEASAFTM 1138 
ea FRINTIETAR/ IS" n 
ser SCTOLAM 1148 
aaa POKE36879.2E:PRINT"W” 1152 
saaS PRINTER T - COBFA laceg" 1165 
z212 PRINT"IIRENEGEN SIE IHFE SCHLANGE HT! 11rA 
EFESSEHN SIE DABEI VIELE PUHKTE" elais]s] 
“ma FRIHT"IIIABET DUERFFEN SIE RBERKEINE SAAS 
WHAHTD LHN MICHT IHPE SPLUP TFEFFEH. OEM" Sam 
aaa SAELIPSAMAR aoa 
za49 PRINT" >aar 
sasa PRINT"SSTELERUHG I" 
sasa PRIMTIMMITARLEN"N LIE" 
27a PRINT"WTARCENA I" 


ID DD ID va na bu na an ma a a a CD Sr N a a TO 


zu2B FEINT"M'TABCSI"Z HC" 


PRINT" 
POKE36879.221'27=1:28-1 
DEFFNETCHISSING CM/2H CHAM) 


I =4#£PEEK3ESSEIANDI 23437395 
V2=4#LPEEKLIESEEIANDLESI+HSAEEPEER OIESEAIAHDLZA) 


K2=1NTERNDEOLSERNI + 
Va=1HTERHDEISKZIIHL 
Ri=44-(V2R22)442 
IFR1L22THENR=22 

2 TFR1YS95THENR=505 

1 FOKELT+RI.6:POKEUZ+R1.S1 
2 K1=INTERHDEIIEISI +1 

3 Y1=IMTERHDEIDRISDH1 

4 IFKI=K2AHDFI=TZTHENIZ 
5 IFrFI=VAANDEISHA4THENIZ2 
P=484- (VI H2ZI +51 


IFFRFSASTHEHR=309T 


6 
7 IFR<Z2THEHR=22 
3 
E 


PRIHT" MER" : GOSURSEAAA 
POKES6879, 39: PRINT"TT' 
PRINTTMEREES SET LEVELM 
FRINT"BIMOM 1 RIS 9" 
PEINTTMi = LEICHTE 

A = SCHWER" 

GETLIF: IFLIE=""THENI 4A 
LI=WRALSLIEN 
IFLICITHEH1 14 

RETUFH 


Ke! 


PNEE19S.M:PRINT"SW"TARLI2I"SIEGER " 


POKE3ESY8, 19: FOXRE2ES?TS, 196 


FORA= 1 TOSAR:HEHT 
FOKE3ES?S. 8: POKEIESTS. A 


1-2: 80=50+1RR0: GOTOLA 


sgaaa PRINT"MEITTE EINE TASTER" 
Sana GETTE:IFTE=-NTHENSANA 
Sana RETURN 


a IFPEERUS+R-223S>3Z0RPEEKSLI2+R-443 D320PPEER CL24+P-423 C332THEN12 
1 POKELS+R, 85: POKELS+P+1, 73: POKELZ+P+22, 74: POKELIZ+R+23, 75 
22 POKEIN+R,@:FOKELN+R+1. 0° POKELN+R+22, 0: POKEU1+PR+23. 0 
23 PIKEUS+R-22, 193: PNKELS+R-44,, 193: POKELIZ+F-43, 195 
24 POKELN+R-22.2:FOKELNI+P-44,2:POKEU1+R-43,2 
25 R1=424-(VIH22) +82 
2£ IFRITZ2THEHR=22 
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a TFPEEKCLS+RIC>SZORFPEER LUZ+R+1 ICH 320ORPEER CLI2+R+22I CH320ORPEEKUZ+R+2 FI CH 3Z2THENI 


33 


Spiele 


I I ig ie 
NA Did 


= DDDANIKREINI- MD 


IFRINSASTHENR=595 
POKEUT+R1, 6: POKEUS+R1,81 

HR: INPUT"SEWUIHKEL "MEUSVALCHE) 
IFU>SSRORMLATHENZE 

IFH=QTHENN=2. AamaR1 

PRINT"S " 

T=M: INPUT"RDRTVE "STE: T=WALCIE) 
TFILLORTILATHENS3 
PRINT" " 
POKE36S?9, 15: POKE36877, 29 
HEXT: POKE36377 , A: POKE3GS? 
Wa=CFNSTCHIIHI 

MI=SARt IEL-7373) 
IFH>SAANDNL2FOTHENYI=H3 
Y4=IHTCW3HV2) 
IFHANZITHENYA=22 


> IFYALITHENVAS1 


Y4=1HTEM2442) 
IFKA>2LTHENYA=21 
TFYALITHENNA=1 
POKEL2+R1 .22 
POKE3E878, 15 
FORZI=16ATO170+182 
POKE36S76 21 
FORZ2=1TOT#S 
NEHT 
FORZ1=170+1X2TN16ASTEP-1 
POKE3SS76 21 
FORZ2=1TNI#S:HEXT 


ıHEHT 


NEXT 
& POKEIESTE: A 


FORZ1= ATOTaH 
FOKEIESTA. 2A 
FORM=1AT030-21%5°NEMT 
POKEIEETA:O 
FORM=1TO1AR: MEMT 

NEMT 
PNKE3E874. A: FOKE36878. 0 
IF#4=4 LANDY4=YL THENES 
IFH4=Mt+ANDY4=Y/LTHEHGO 
IFM4=H 1 ANDY4=Y1-ITHEHNS® 
IFM4=%1+1ANDT4= 1-1 THENS® 
GATNS? 

vos yZedt RESTORE 
A149 VaR22)+82 
IFRIZ2ZTHENR=22 
IFRI>SASTHENR=I93 


3 POKEIN+RI.E:POFEL2+RL,S1 


92 21=21+1:29=29+1:72=74W2= 
83 PRINT": 


POKE36878.159 
READAB. AI 


POKE3SS7E.AS 
FORP2=1TNA9:HEHT 


4 
& IFAS=-1THENSI 
? 
8 


7a POKEZERTE:N 
ea G0T07S 


FPOKE35378,8 
“4: PNKELD+PI , 32 
LACH" ZT: 


TARCHLDNSCHLAG" 2 S; rg" 


IFZTC=3THENI2 
sorası 

Z5=25+1 :Va=ya ya=g 
PRINT" 


LACH"; ZT; 
TABELINSCHLAG" 528; "TTT" 


89 PIKELI2+R1,32 
32 GOTO2S 
1 
2 


tn 


PRIHT" 2 "285=28-1 
PRINT"MMMSIE BEHNETIGTEN FLERM TIHPE 9 
LOECHER" 


273 PRINT" MEN" ZS;" SCHLAEGE" 


PRINT"MIMIITROESTEH SIE SICH IMM 
RLUBHAUS 1" 


35 PRIHT"MM" END 


POKEU2+R, 32: POKEU2+R+1,° 
32: PNIKELI2+P+22, 32 


32:POKELIO+P+22, 


7 POKEUS+R-22, 22 POKELID+P-44.,32: 


POKELI2+PR-43.32 


2 RETURN 
3 NATR2A1,SAA, 191, 5aA,201,529. 191,500 
a) 


= 


195, 262,191,28 


1A DATA193.268. 221.268.191,269, 215, 288, 


221; ee 

1 POKE36879. 26 

2 PRINT'TEE Eee — GOLF Ka" 

3 FRINT"MMTREFFEN SIE MIT IHFEM BALL 
MDEGLICHST " 


104 PRINT"SCHNELL IN DIE LOECHER" 
193 FRIMT"MSIE MUESSEN THREN AB- 


SCHLAGHINKEL UND DEM DRIVE EINGEBEH" 


126 PRINT"MREACHTEN SIE DEN WIND." 
A? PRINT"MIINKEL = 


a - 2eB GRAD MIRIVE 
= 1 re 1a" 


A® PRINT"MERITTE EIHE TASTER" 
199 GETTF:IFT$=""THEN199 
1A RETURN 
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aaa kr aa a A A A RG A A m nt I A I U © 


» 


GOSLIPARAAR 

PNKESES?2. 8: PRINT"T'SCHRECIA? 

20=37154:P1=37151:P2=37132'BP=93173: POKE36877.,198 

FORA=IS4AATN3SIAS: POKER,1:NEXT 
FORA=?FA2ZTN7S11STEPZ: POKER. 128: HEXT 
DIMACSY:FORA=ITDIA:REARDRCA-13 NEXT 

DATAr?793, 7795,7787.,77099, 7711: 7713, 7715, 7717,7719, 7721 
FNKERF, 121: POKERF-22,93 
IFVYALETISI>Z1BTHENSOAO 
IFSS-S1£1THENEAQO 

92 IFWUICHLTHENGOSUB2ORAR 

25 IFFI=1THENGOSUB1AROS 

28 IFWI=1THENGISIBIABAA 

22 POKEID, 127: P=PEEKCPZ>ANDI28' J8=-(P=B) 

24 POKEDD, 253: P=PEEK(CP13: J2=-CCPANDIEI=R) FR=-CCPAHN32I=9) 

265 IFPEEKCIAFI=3ZANDFI=ATHENFI=1:FP=-44:G0SUB1AQOR 

>= IFPEEK( 197 3=33ANDBPIS1E4THENBP=BP-1: POKEBP+1,32:POKERP-21,32:G0T014 
za IFPEEK«197)=3AANDRP<S1SSTHENBP=BP+1 :POKERP-1,32:POKEBP-23,32:G0T014 
=2 50T014 

aan PNKE36873, 26: PRINTCHR$C142) 

“a1a PRINT"EIM GEFANGENER DER ZTKLONEN" 

282a PRINT"MWEHNTKOMMEN SIE AUS DEM GEFRENGNIS !" 

#238 PRINT"WSIE HABEN 2.1 MINUTEN ZEIT" 

#242 PRINT"WIEHN EIN HAECHTER (BP) DEN BODEN ERFEICHT, WERDEN SIE GEKOEPFT !" 
“250 PRINT"ME = NACH LINKS 7/ = NACH RECHTS SPACE = FEUER" 
43553 PRINT"ISCHIESSEN SIE SICH DURCH DIE DECKE FREI" 

4260 PRINT"MRITTE EINE TASTER" 

4979 GETE#: IFE$=""THEN407O 

275 GOSLIRFRAAA 

“aaa TIE="AAAAAA" RETURN 

sand GOSURSFAAB 

saaı POKE36379, 26: PRINTCHR$C142) 

saıa PRINT" SIE WERDEN NUN" 

> FRINT'"mM GEKOEPFT !" 

=a38 PRINT"MASIE SCHAFFTEN:" 

=a49 PRINT"MBREIT (SEKD"VALCMIDECTIE,3: 23 )K6O+VALCMIDECTIS,3,23) 
5858 PRINT" MUAECHTER".WZ 

sasa PRINT"METEINE".S1 

sae2 PRINT"MLEVEL".L1/3 

=2€3 PRINT" BPUNKTE" . CHZE4OB+SIRKLOOIRCIB-L1/3) 

SAES PRINT" 

=278 END 

5299 EHI 

saaga PRINTCHRFC142):POKE36879.26 

218 PRINT"TIISIE HABEN ES GESCHAFFT" 

saza PRINT" MWBEIT £SEKD",YALCMIDSCTIE, 3, 22 IMEA+VYALCMIDSLTIF,5,23) 
5838 PRINT" WWERLETIGTE HAECHTER" ,WZ 

59348 PRINT" WMZERSTDERTE STEIRE",35 

Ena2 PRINT"MMLEVEL",L12 

243 PRINT"MPUHNKTE" , CUZR49Q+S IL AADRCIA-L17'33 

5845 PRINT 

sa=a END 

aaa POIKE36879, 30 


u er 


[0 a U m ı Be De u 6 9 
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12539 
12999 
12909 
10812 
12915 
19220 
20908 
20818 
20028 
20938 


Saaaa 
saand 
32295 
3aa1R 
aa 
aamz2 
38024 
38023 
3aA.3a 


PRINT" Fee SET LEVEL BR" 

PRINT" MEWNEITTE WAEHLEN SIEM ZWISCHEN 1 BIS 9" 
PEIHT"MMI = SCHUER 

PRINT"MDANH HIRD’S IMMER EIH- FACHER I" 

PRINT" = LAEFPISCH" 

SETLE: IFL$=""THENFASO 

L1=VALCLFE) 

IFL1<1DRLI>STHENFARA 

Li=L1%#3 


A RETURN 


END 
POKE36877, A: FOKEI6874, 144 
FORA=15TDASTEP-. 9: POKE3EBTB, A:NEHT 


1 
2 


2 FOKE3ES74,0 
> IFHI=1THENGOSURIRAAAR 


IFRP+FP£FFA2THENFI=9:' RETURN 
IFPEEK“BP+FF)=128THEN1AS0R 
IFPEEK.CRBP+FP+22>=@THEN1ESAQ 


a TFPEEKÜBP+FPI=BTHEN1EORRDG 


POKERP+FP, 43: IFBP+FP>FS12THENPOKERP+FF+22, 32 
IFBP+FP>?S12THENPOKERP+FP+21.. 32: POKERP+FP+23, 32 
FF=FP-22: RETURN 

REM 

POKEBP+FP, 192: FÜRA=1T0398 NEXT 


= GOSURZAAAR 


ul 


POKEBP+FP, 32:5C0=SC+1AR 

a lb "3,505 :31=S1+1:PRINTTABCISPMIDFCTIE, 3,4): RETURN 
M 

IFBP+FP>?S12THENPOKERP+FP+22,32 

POKEBP+FP, 91: FOFA=1TI3@A:HEXT:UP=8 

GASLIRSIAAO 

POKERP+FP, 32:W1=9'NZ=H2+1 RETURN 

HI=INTERHDELIHLII 

IFUTZ>LTHENRETUFRH 

“1=INTERNDELIESO) 

HP=ACK1I RETURN 


POKE268?7 ,A:POKE36876, 200 

POKE36878. 159: FORA=1T039: NEXT: POKESES79. A 
FOKE3ES?E.A 

IFUP>=S164THENSORBA 
IFZ1=9THENWP=WP+22: POKEHP, A: POKENP-22, 32 
aPLI<=SISTHENZ2=72+1 

IFZ2>2THENZ2=8: Z1=1'RETURH 
IFL1£=13THENZ1=M:RETUFH 
IFLI>LSANDZI=ATHENZI=1 RETURN 
IFLI>1SARHDZ1=1THENZ1=@: RETURN 
FOKE36577., A: FOKES6STS , 130 

POKE35378: 15 

FORA?=1TN2M:NEMT 
POKE36976, A: POKE36873, RM: PETURN 


a POKE36877, 290 


FORA9=1STOBSTEP-.3 
POKE35873, A9:NEKT 
POKE34977 ,@: RETURN 
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a POKE36377,220 
FORL=15TOASTEP-1 
POKESSSTS.L „ saaa NEZTM: NEHTL:POKEIESTR. A: POKEIESTT. 
FORM=1T03@8 A:PETURN 


A En a Eh A a A a a A a a a a A a a a A In u A Le A a A A a 5 A u a gr 


= ENKE36379, 2: PRIHT"w" 
22 PRINT" TROULETTER" 


22 PRINT"MIN DIESEM SPIEL SINN FOLGENDE SETZMOEGLICH-KEITEM:" 


BERTHT"Mmi, EINSELHE ZAHL “PLEIN) 

wa PRINT" GEUTHM: IS-FACH" 

= PRINT"M. TUTZENDE 1.2.3.3 GEMINH: 2-FACH 
22 PRINT". KOLOKNEN 71.2.3. (SENKRECHTE REIHE?" 
za PRINT" GEHINN: 2-FACH" 

75 G0SU82998 

=2 PRINHT"IM. EINFACHE CHANCEN MANALE = 1 - 18 
Be PRINT" PAIR = GEPADE IMFAIR = LINGEPADE 
ES SRIHT" ROUGE = ROT NIIR = SCHUAFE" 
=a PRINT" MMTHDESTEINSATZ = IM 

=2 PRINT"HOECHSTEINSATZ 1aa9 DM 


PRINT"STAPTKAPITAL Sae DM 

222 PRINT"MEI M GEWINNT DIE BAHKMM" 
BB PRIHT"SEITTE 787 DRUECKEN Im" 
2 GETYE: IF r72c>"E" THEN992 

aan PRINT" 

za M=5:H=19ma: KR=1anad 

22Sa K3=509 

za FEM 

a2 I=A:KL=KS 

sao5 I=I+1 :IFKLISTHEHI=T-1:60T04008 
Bean PRINT"IDIE EINSAETZE :" 

2132 PRINT"WERHL (PLEIN.I BIS 36" 
BO PRINT" I1.DUTZEND. .........37" 
Ben PRINT"Z.DUTZEHN. 2ueneuun 138" 
BERETIHT"S.DUTZEHN. 1002.2.0,29" 

20 PRIHT"1.KOLONHE. nun nnn en 42" 

Ba PRINT"2.KOLONNEs aussen nnn tt" 
Aa 
9 


% 


. 
{Mn 


N ERER En 
„m a me 


PRIHT"3.KALONNE, . 2.0. .42" 
PRINT"T - 18 CMAHAUE). .43" 
Bein FRINT"I9 - 36 CPASSED.. 44" 
s220 FRINT"GERADE £PAIFI,...45" 
2238 PRINT"UNGCERADE CIMPAIR). .46" 


2249 PRINT"PNT EROLIGEI. „.87" 
25a PRINT"SCHUARZ CHAIR)....48" 


aaa PRINT" MAHAEHLEN SIEW":: IMPUTT 
341A IFTLIORTI4STHEHFIAG 

3429 TCII=T 

ssaa IHPUT"SEIHSATZ 8":E 

350 
350 
ICH 


{ 
\ 


IFE<MTHENPRINT"MINDESTE. =";M:G0T0Q 
IFE>HTHENPRIHT"HOECHSTE, =";H:G0T0 


[3 53 


50 
'| IFEIKLTHENPRINT"SOWIEL HABEN STE MH 


A 

1a 

a T":GOTO3398 
an FErT'=fE 

a 

A 

a 

A 


BRR ER 


*] Dr We De] h 


PRINT"SHOCH EIN EINSATZ I/NM" 
GETAS: IFAS=""THEHSE1R 
TFAg=" T"THEHKL=KL-E:G0TOBDAS 
REM 

3 PRINT"IMG TISRIEN NE YAS PLUSmE" 

a FORI=1TO1MAR:NEXTI 

A K=INTERNDETIYK3?Y 


De He de a) if 
II DIN I I 
je Du I en} 

ws Ber] 
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ERSZE se 1 55% 


Spiele 


4220 PRINTIMMELGEL LIEGT BEIS "ES" W" 
sa19 M=I 

sasa PRINT" 

siaA FORT-1TON 

s1aS FRINT"SEINSATZ @":T; 

ii E=E{T> 

129 IFK=ATHENA=-E:G0TOS230 

s13a IFTEIIC=3ETHEHGOSLBEIAR: = 
139 OMINTELTEII-IEN/FI+LGOT 


Ela] 

051 

sian ANTLII-3SGOSLURE2AB, SIR. EAr 
als 


>20. : 0705230 
S1EA ONTETI-AORMSUPESAA, KAMA, TARA, TLAA, FA, TaaA:HnTnS22A 


ia NP 

E23 TFRFATHEHFRINTA: "DM GEWONNEN" GOTOF2IA 
S24a FRINT-A:" DM YERLOREN" 

329 KIS+A 

S2ED KReHKB-A 

=280 NEMTI 

Saag PRINT"MIHR NEUES SPIELKAPITAL":PRINTKS:" DM," 
saan FRINTTINEHNCH EIH SPIEL TH" 
SAN GETAS TEOERTNTUEHMAIN 

s419 IFKSC-ITHENSAA 

zaaa TFAg=" T"THENaAAA 

5432 PRINT"TT':END 

439 PRINT"TIDESSTE SIND ©" 

S420 PRINT" MEI BREITE, II" 
saca END 

198 PRIHT"C"TCIIS"PLEIND" 

11a IFK=TCISTHENA=3TEE RETURN 

129 A=-E:RETURH 

2@A PRINT"£12 PP} 

21a IFI<=KAHTKI=-DATHENA=-2#E:PETUFH 
Bean A=-E:!RETURN 

gzan PRIHT"CIZ MY" 

5312 TFL3C=KAHNFL=24THENA=IHE RETURN 
6320 A=-E:RETLRM 

saaa PRINT"LI2 DD" 

5419 IFZS<=KANDKL=ISTHEHA=2KE RETURN 
42a A=-E:RETURH 

ezaa PRINT" (1. KOLOHNEI" 

g31a IFK-3KINTCK/DD=1LTHENATZHE: RETURN 
gs2Rd A=-E:RETLIRH 

EsaA PRINT"X2.KOLIUMEN" 


es1a IFEK-3#INTCK/II=-ZTHENASZHE: RETURM 
seza A=-E'PETURN 

e7an PRINT"CI, KOLONNES" 

S719 TFE-3EIHTCK/SD=RTHENA=2FE: RETURN 
Ar2B A=-E:RETUFRH 

ERaA PRINT" CMAHRLEN" 

sa1A TFLZ=KANDKZ=1STHENA=E :RETUFH 
5828 A=-E!PETLFN 

Bad PRINT" CPASSEN" 

6319 IFLIL=KANDKL=ISTHEHR=E:PRETUPH 


£329 A=-E: RETURN 

Fand PRINT"CPATPY" 

721 IFK-2#1HTLK/2)=-ATHENA=EPETURN 
7a22 A=-E'PETIIRH 


ram PRINT" CIMPATF>" 
Alta TFE-2#INTCK/2)=1THENASE: PETUPH 
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- 
19 
SO 


As-E:PETURN 


U 
‚I 
fer 
2 
4 
en 
Do 
Sr 
a 
m 
nr 


CnSUB74aR 
IFRTHENFI=E : RETURN 
A=-E: RETURN 
Bein" 
TFNNTRTHEHR=E RETURN 
A=-E: RETLIRM 


BELLE 


usa- 


INPUTDEIN | EINSATZ a I 
PRINT:PRINT 

PRINT"DEINE KARTEN" 

PRINT 

aNeLRSaan 

H=Nn: T=1+H 

PP I HT n + 

PPIHTH.T 
IFC=S11THEHPRINT"TI BUBE", I 
IFC=12THENPRINT"T DAME",T 
IFG=13THENPRINT"TI KOENIG", 
IFC=14THENPRIHT"TT AS" I 
PRINT" m" 

PRINT"HOCH EINE KARTE ? J/N" 
GETBF: IFBF=""THEN1?A 
IFI>21THEHZEA 
IFI=21THENZAA 

IFRF=" TTTHEN120 
IFRBE="K"THENZARAA 
GASLIBSAAA 

Fett: G=G+F 

IFGC1FTHEN1SS 
IFG>21THENG=G-2 
IFI>21THENO=0+1:GOTO1BAA 
IFG>21 THEHD=0-J: SOTOLEAA 
IFG>ITHENN=N+T:GOTN1A98 
IFG=1THENN=N+J: GOTIIEAO 
23a N=0-] 


ve 


LE zug ZU u Tu Bu Zu; 
SENT 
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me I ma Na me na He 
De 


ISIN EHERENIAER 
NIADINAWYITDEN IM ı 


= 


ww 10 mu 00 u u u ee vun 


na 
ıD ıD (DD ıD ıD ı 
IN IR I i 


NDIDDDIM 


3 


3 Er wa) (mi 


Rama nd ı 
II Ty re ( 
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7409 Pi=CK=1ORK=-3NPF=SOPK=7NPK=90PK=12) 

741A P2=CK=140PK=160PK=1S0RK=1F0RK=21NPK=22) 
7429 R3=(K=2S0RPK=27OPK-2ANPF=220PF=240PK=26) 
7449 R=RINPR2OFR3 

74=9 RETURN 

aaa PRINT"MERITTE °£’ DRUECKEN !m" 

992 BETYE: IFFECH"E"THENFEDR 

2339 RETLRN 


a PRINT"ORMI HASTE" 

25 PRIMT 

taaR FRINT I 

1a33 PRINT:PRINT 

1358 PRINT"HOCH EIN SPIEL 7? JH" 

ıasa GETBE: IFReE=""THENIASA 

1a?a IFBE="J"THENF=B'G=O:H=A:1I=0:G0OT019 

ıasa IFO>ATHEN1209 

asa PRINT"T" 

12a PRINT" MIREMU HAST" 

11292 PRINT:PRIHT 

1195 PRIHTABSCNY:" DM" 

1187 FRINT:FRINT 

111A PRINT" MERIMGELONNEM" 

112 END 

ı2aa PRINT"T' 

1295 PRINT" MM HAST" 

1297 PRINT:PRIHT 

ı21A PRINT D:" DM" 

1212 PRINT:PFRIMT 

122@ PRINT" MBIIMERLOREN" END 

ea13 FRINT" SU" 

aan IFE>2STHENGOSUBISRN 

sa1B BeINTIFHDCLIEAS+ 

aaa L=INTERHDLLIERH+T 

saaa IFALCB. Ch="#"THENSAAO 

3049 ASCB,LY="#" 

RAS Net 

aasa IFC=110RG=SI2THEND>S1 

aasS IFC=13THEND=2 

aaga IFC=14THEHD=11 

ara ErE+t: BETEN 

SzAA PRINT"Y ME RE 

2581 PRINT"MES KOMMEN NEUE KARTEN BZU. 
ES WIRD ET 

3EA2 PRINT" FERN EIRERERERERE 

sa FORY=ITO4 

se2R FIRYF=-7TA1A 
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aa Ace, zaa6a PRINT:PRINT:PFIHT 

aa4a NEXT:NEXT zaa7a NEHTM 

AA E=A 2aa?1 FRINT" DM” 

9559 RETURN zan?2 PRINT"A" 

zaaaa PRIMT"T" 22973 FRIMT"MERER" 

zamla PRINT" 7S2@ARTKRA" 2aa?4 PRINTER" 

zaaza FOR%=ITO4. aa? PRINT" EIER" 

2aR25 FRINT" "; zaasa PRINT'"MIMMEITER JI/N" 
zaasd FORY=7TNI4 zaasa GETYE: IF'/E=""THENZAAA 
zaa4a PRINTAECH,. WI"; za1aa GOTO1SA 


ana NEXTY 
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Micky Maus 


3==i MICKY-MAUS wird ein Micky Maus-Kopf 
zit einem Drucker ausgegeben. 


Andreas Müller 


@ OPEN! ,4 

I PRINTCHR$C147) 

2 PRINT" MDDDODDDEEBEBMICKY MAUS 2.1" 

5 CMD1.:CHR$C145) 

ti PRINT#1," KURKRRAIR" 

12 PRINT#L," tat tar 14 20,4,920.9.9.0.4. 20 

13 PRINT#1," batata9a921927,9.9.2,4.9.0.7.9.7,20 

14 PRINT#1," patat.2,1.929,9.7.9.9,9.0.7.9.9,9.7.9.25 

15 PRINT#HL," NARKKKKHRHKHKARHAR NN N" 

16 PRINT#1," artatıt a0 0.927.927,9.0.9.9.0,9.9.4.0.9.0.50 

17 PRINT#L," tar t a0 9.0 .4209.729.9.0,4.0.4.9.0.9.2.1.80 

18 PRINT#L," tattatata1a429.9,927,927,9.9.9.9.7.9.7.4.0.9. SEES 3 .127.9.9.20 

19 PRINT#L," tamat tan tt20.4.920.4.820.4.9.0,9,9.0.4.0.0.9.0.9.9.0.4.0.9.9.0.2. 2 

20 PRINT#1," tatatatatava2.927,9.7,7.0,9.9.0.9.9,9.0.4.0.7.0.9.0.9.0.9.0.9.9.7.9.9.9.7.125 

21 PRINT#L," tar tame.h22.9.1.7.0,7.9.0,9.0.7.0.4.0.9.9.0.0.9.0.7.9.9.7, % alta3e 

22 PRINT#L," pahataata82,9,8.9.9.9.0,0.9.9,9.0.9.7.4 1 % RAR" 

223 PRINT#L," tatatarıta1,1.927,9.0.7.9.0.9.9.9.7.9.7 atatatata tatatattat #272 

24 PRINT#HL," 14920,9.9,9.0,9.9.9.0.9.7.9.4 AR HRKRKK RAM" 

25 PRINT#1." tatatat9.0.9.0,4.0.7.9,° PR BER ‚1 ,1.°,7. 50.58 ,0.9,1.7,7.7.7.30 

25 PRINT#L," tatapıt 9.9.7.0. Eu 0.9.7.9.0.4.0.4.9.7.9.7.5 $ RM N" 

27 PRINTRLL" 2 EEE, KEIM REN" 

28 PRINTH1," KR, fattar tt u) RER" 

23 PRINTH1," KARNKRNKKKNNKRNKHKKHKKNNNRRKNK BURKANN Ka" 

ES d he DRmlb.2.9.0.9.0,9.0,9.0.4.0.,9.0,4.9.0.9.0.9.0.4.0.7.9.0.9.0.9.0.9.2.1,. MRKKAN at 

31 PRINTHL. "WERE x" 

32 PRINTHL "WR, at 

39 PRINTRL"WRRRRRRRKHHRRHAKKKRKNN RN 

34 PRINT," MEER Pate te 

33 PRINTHL" KOKANIKERNKNMKNARKNN HK HM Rx" 

36 PRINTHL," MEDIEN 0006 EN" 

37 PRINTHL." MERK, KAKR patta.t.n.9.9.0.0,4.9.9,9.0.9.9. 50.2 

39 PRINT#L," patata1920.9.0.4.0,7 RAR Hatten tap22,920.0.9.0.7.9.9.2,. 200 ..5 

39 PRINT#HL," ” MH x u »>.7.1,7.0000 3.20 

48 PRINT#L," ba11 Due Bee EZB 2. Su 320 

41 PRINT#L," Pa Te ‚U »+7.9.0.7,4. 0004.20 

42 PRINT#L," REN" 

43 PRINT#L," MARK" 

58 PRINT#1:PRINT#1:PRINT#1:PRINT#1 

58 PRINT#1,CHR$CI4" MICKY MAUS 2.1" 93 PRINT#1,CHRFSISI"BBW RUMMELSBERQ" , 

6= PRINT#1 94 PRINT#1,"NIBELUNGENSTR. 1" 

?@ PRINT#1,CHRFC143;" PAINTED BY DDERJ" 95 PRINT#L,CHRFCISI"GRUPPE 28", 

79 PRINT#1 97 PRINTRL," 8591 SCHWARZENBRUCK/" 

38 PRINT#1,CHR$C14)5" COPIED BY DLSREBG :PRINT#1, "ZIMMER $12 NORD", 

35 PRINT#1 98 PRINT#L," LINDELBURG" 

58 PRINT#1,CHRFC1I4?" PRINTED WITH 39 PRINT#1,"TEL. 89128/722633" ; 
SEIKOSHA GP-19BVC" 189 PRINT#L," TEL, 89183/82894" 

31 PRINT#1, :PRINT#1:PRINT#1,CHRFCIS) 184 CMDI,CHRECIS? 


"ANDRERS MUELLER", 
92 PRINT#1, "ANDREAS MUELLER" 
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185 PRINT#I 
118 CLOSE1:END 
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Grafik 


Walloons ist ein kurzer Grafik-Film,. dr 5 - 9 Ruft das Unterprogramm für 
eine Artistengruppe bei der Arbeit zeigt. die Grafik auf und macht mit 
Man benötigt eine 8K-Erweiterung und muß der Vorstellung des Program- 
vor dem Laden folgende Befehle eingeben: mes weiter 

10 - 90 Die Grafik wird im Speicher 
POKE 44.32:POKE 8192,0:NEIN (RETURN) abgelegt 

100 - 249 Data Statements für die Son- 
Diese Befehle sorgen dafür. daß das Pro- derzeichen 
gramm erst ab $2000 (Beginn der 8K-Erwei- 250 - 295 Vorstellung des Programmes 
terung) abgelegt wird. Der Speicher der 400 - 650 Vorführung der Gruppe/Num- 
Grundversion bleibt somit frei und kann mer mit dem Schleuderbrett 
später für Sonderzeichen benutzt werden. 800 - 803 (c )-Routine 
Programmerklärung 900 - 935 Ende - bringt Nachspann 
Zeilen Erklärung Ab 850 ist ein Unterprogramm mit einer 
0 Unterprogrammaufruf für (c) Verzögerungsschleife abgelegt. Durch Än- 

Darstellung auf dem Bild- dern dieser Schleife können die Bewegungs- 
schirm abläufe beschleunigt werden. 

1-4 Gibt Titelbild aus Matthias Ihl 
Aa GOSURSAA | 
1. POKE36873, 11: PRIMT" TISCHEN a ze DE TIETT IT TI T HE 
2 PRINT" 0m re 3 mm vc2a a — em Pr 24 
IX I 
3 PRINT" IBEPROUDL'Y | er." 7 "7 Ti 10... IBERPPESENTS aM 
ib | 
4 PRINT" 1 To ass" PRINT" Tr — — 
= GNSUB1A:POKE36869, 192: lit. lin FORG=ATN?: a bar :FORU=1 TO 
KARA :NEXT 2 
? NEXT: FORT=1TO2AAM: NEMT | r 
= BOSUR2EE \ 


a POKES6S69, 2A 
ja FORI=ATO2A4 
2@ REM | 
3a POKE36S69, 286 

4a REM 

sa RERDCH' IFCH=23ETHENAR 


6:G0T01 aA 
r! 


| 
POKE@144+1, PEEK(32768+1) NEXT 


| 


ea AN=&144+8%CH: FORT=OTO?:READ“POKEAD+T.%: Er 


7a REM 
sa KnTOsa 

ar RETURN 

ina DATAR,2=5,295,1,1.1,1. 
1as TATA27,249,15.9,9,0,0;0 
1A6 DATA28,0,0,240, 15.4.0 
197 NATA29,0.0.0,9,240,15 
Aa NATA29,2,0,0,0,9,0.24 
103 DATA21.28,28.29,12 „12; 
11a NATA33,15,249,0,9.0.0, 
111 DATA35.9,9,15,249,0,9, 
112 DATA3E.9,9,0.0, 15.240, 
112 DATA37.9.9,9,9,9,9,15, 
114 DATA38,12,29,29,12,4,2% 
115 NATA29,12,28,298,12,4,28, 


sap Seen 
aAnSaaa“ AD SD 
Ra 
ID 
x 


In] DD 
Mi) [68] 


rn 09 
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264 FORW=1TNA4AR:NEXT'HENT 

zaa FORP=1TI2AAA: NEMT 

295 RETLRM 

aa FEM 

aas PRINT! STREIT 

anf PRINTER"; 'FORO=1TDISBR: HE T: PRINT" MH": GOSUESS 

428 FORO=ATOA 

412 FRINTID KR 5 :OnSURSEN: PPIHT"TWINMH" : : GOSLUBSSB: HEHT 

412 STETS :ANSURSSA 

425 FORA=1TM2AAA HEUT 

san REM 

erE FRINTSTMEITETTEN J | J 

=1@ PRINT'"NTY ac“ un "GOSUBSAR: ee MEk- ";:GOSUBSSA: PRINTSIRLT II" ur RNSURSSA 
511 PRTHTFENFIE game wo. EOSURSER: FORA=LTIZARA NEXT PFIHT"RETrT EIN": : SOSUBSSR 
515 FORG=ATN1S 

sis FRINT'TTMERBE "; GOSUBSSA: RRINT"TTIIONG"  GOSLUBSSO 

E17 NEKTO 

za FORD=ATO4 

21 PRINTTIBER: IBM N; GASURSSR: PPTHT"AT RC" 5: GOSUBTSA: HEMT 
=22 PRTHTIIFE TERb- "5 FOPD=1TO1SAR: NEMT!FRINT"TERN" 5 GOSUBSSA 
=22 PRINTTIEEIRH-" SOSURSER 


DATA4R, 156. 28:28, 12.28, 164, 196,28 
DATA, 48, 26 ,36,48, 32, 96, 60,38 
DATA42, 48, 56.565. 48,32.:56.596,596 
DATA43, E East: 6, 6, 48, 4a, 37% 39, 36 
DATA44. 55: 55:56.48.48,48.49.56 
DATA45, 96.96, 36, 48,48, 43, 539,58 
DATA4E,9,9.9,0,127.123,51.2 
nATR47,4,9,2,0,255.299: 225.2 
DATASS. 6:96.56, 48,48,49,48,258 
DATAS9, 28. 28,28,12,12,12,12,259 


DnATA&A.28.28.28,.12,12.12:244,28 
nATAS1 2, 12, 12: 12; 12; 28, 28, 28 
DnATASE, 23,29, 28,4.12,28, 28,12 
DATAS3. 12, 28:28,12., 68. 128, 126,253 
DATAES . 56: 48,48, 49.49, 96,56,5€ 
DATAS3.536. 56. n- 48,56.95, 48,0 
DATAS6.15.241,1,1,1, 1.1.1 

nATA2SE 

FRINT"" :POKE36879. 25: POKE3ESER, 


=m 


296 | 
PRINT" ET TH DEE DKHT DM DEAN TKHT CME TKN DON DEE DEMN DCME TERN DENE DET 1 


PRINT" HER | 
FNRT=1T02998: NEXT 
ENTO4aA 

POKE36S79,5: PRINT TIROONSTT HENROOEELY INGA L 
PRTHT"RM"SPRINTTARCLAD: "ON": FORF=ITO4AAMEXT PRINT" STABC1A)S" 
FORK= 1 TO4AR: NEHT 
FORS=ATOI3: PRINT" I"); 


BER" | 


:FORW=ATOS: PRINT" MW" CHEXTIPRINTTABCIAD:" AO"; 


FORN=ATOI 

a 
FRTHTUWETRRNEN 
FORA=ATNMI 
PRINT"IRME YEmk- "; SG0SLIBSSR:PRINTTIRET IE": 
FRINT"IUDI RL. 7"; : FORG=1TD2SAM : MEMT 


ee PRINT"IUEBE-" 5: 


GNSUIBISA:NEXT:FORU=1TOLBBE: HEMT 


GOSURSSA: NEXT 


PRINT" TEBk-" - ‚32: PRINT"IEITIE" ; GOSUBISA 
FORA=ATD2 
3 PRINTIUT AR €"; ansursen: PRINMT"ITTIC" 2 GOSURSSA: NEXT 


PRINTER" FORO=1TNZARA: MEXTPRINTIEINBIE" 5: GOSLURSSA 
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HS Im" :FORT=1TOIARR: NEXT 
NN"; 
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= FORA=ATO3 


& PRINTER: URK- "; :GOSURS 30: PRINT" RI"; GOSUESSA:HEXT 
a REM 
1 
e 


FORA=ATNIS 
2 PRINT" WRRUNER-" ; !GNSURSEN:NEXT 


au 1 I 11 1 1221.78 ea] DERART u "::G0SU 


a DERBDRBENEN WEITET TMCEITBISHUT ORRTREEREN IT] "2:6 
NS 

SER Rem 

=e2 PRINT" SEM DRRBBRUEI. EI": :GNSLESSA 

ser FORI=ATIIA: PRINT TIERE, m": GOSUBSSA: MEAT: GOSUBSSR: GOSUBISR:PRINT"TY": 

364 FORR=ATNIS 

Se PRINT'TE EM." GOSUBSSO: NEKT:PRINT"TII BE." ; 

587 PRINT STONINTSONDSTMÜNTNDIUNDKDKENDETETNTEN ENDEN WERKEN: — _ _;: KU TEEN "; :GOSLUBSSA 

ze | FRERBBI Mt“ LE 1 IE) [ss 20 [22 Zu [ne 153 1.01 | | (pe 
SOSLUB 


N 

> PRINT" TITE, EHER " GOSUBSA 

s7a FORF=1T015 

571 PRIHT"TTTIEESE "5: GNSURSRA NEMTIGDSURSSA:PPRINT"TTISSH-TN+L: IFZH=4THENS?S 
s72 GOSUBSSA:GOTOSIR 

=75 PRIHT'IT CE +"; :FORG=1TO2SRR:NEXT:PRIHT" SI 
Bdahkeisln) 

S?A HEHTFORS=L TOM: PRINTIIOTEHT" SS GOSLIBSSE:PRINT"IEI RT . "5 :GOSLUBSSR NEXT: FOFRG=S 
ıra2aaa 


al," ;:FNPT=I 


577 HEXT:PRINT DRAHT RC" ; SO GOSUBSSA:PRIHTFIRME MM MSSGOSURSea U 


578 FORFSATOIS:PRINT"IT ERIEk-"; :GOSLUBSRA: NEXT 

>23 SOTIEAR 

sea FORG=1TN1ARM:NEXT 

583 RETURM 

aa PRINT"! Au I 13 1 123 EB; || BE _____: TIER ETW "5: GOSUBSS 
Sal PRINT" SODOTENNENTEERTETNTNTETETETEERTe RRRRBBENHI, KEITET TEE LEICCHREN 543 EU"; BOSUBSSA 
za? PRINT! ARERETTEDTTOTTTRTTTET" ; 

sa3 FORK=SATN?:PRINT"BETTBERRL I"; GOSLIBSSO: NEXT 

era PRIMTUTTERL ER", GOSLIBSSA:!PRINT"TIED- TIRE "::GNSLRSSA 

ea PRIHTEMSTUT DW RD"; I SNSURSSA 

ERS PRIMTIIET ME WERT" ONENIBSEH 

52? FOR==ATN?:RRIHTURT A"; GOSURSSA: NEXT: FORX=1TNISAR:NEMT 

23 PRINT'IETWIERTN "; GOSUESSA:PRINT"AFTTN. BA" GOSLIRSSA 

Sa PRINT"AETI MABRMER " GOSUBSSA:PPIMT"IETI III KB "5 GNSUBESA 

Stt PRIMT"EETI EEE": GOSUBSSA:PRINT"III MI ": 


£12 PRINT" ATNTRTRTATRTNTATHTE renden 1 123 IE sl TREE  GOSUIFISA 
512 PRINT" SOHN MTRTMTETWINTATNTWTNTETND OUT WERDE TBBBNI-+4 ee m":: 
SISLBISO 

614 PRINT"TTTITEEEM ", :G0SUPSSA | 

615 FORA=ATIS:!FRINTUEFTTIEMERE "; :GOSUIBSSA:NERT 


218 PRINTMIT. Em ": :GOSUBSSA:PRINT"IITI MM ": CNSUBSRA:PRINTERFTWMRM "; 1608 
upssn 

&19 SNSUBSAR:PRINT"IEN IHM"; :GOSUBSSA:PRINT"ITT MET"; SGOSURSS® 

S2@ PRINT"IET MER, 2": :GOSUBSSA:PRIHT"ERI BL," :ONSURSSO:PRINTIEM Se"; :GOSUBSE 


21 FORS=ATD?:PRIMTUBET IR"; GOSLBSSE NEST 
#22 PRINT" AUUUTEDSINTETERTTDTETEDERTETT ER Ba Bu Ba BE WET: 


STukay] DERRERERAME # "::50Sl 


Eu lulad 1 2.1233 IE MBICEITACEIRRET MERRBERANE 7171 "::6 


BRRBKTEI. ME"; :GOZUBISO 
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nNınına 


Nın 


Dura DEE EU ZB EEE BE De 


” 


‚2 ii 


Da] 


Kadocın 1a 


u 
- 


Sy dIHO uon uoneygng auıg 


L&3N:Y'WRZZ+ 0223404 : HAU3A : 30 LA=WUd0 4: BU LB= Tal AHITHITÄER EEE LHIAd Sl 

LU 

Ba BE BB bar Di a a el rd: ereheln: etthedh: Then: p2oreer I 
8828383404: CIL->UNd=R: BP SIBIEHA0I 83 953 A055 EAU BO 


UNS: !uGulNIdd: 22 528 IEIA04: 6 EI rlg Si 

LH: bdosulT=sJul3 ScE 

u AR un LHida: LAIN: BESEN503: 7 TR DELHI. BIC T=eNdO TS 

| SI: LA3N Bell T=ladd: tn RL LHIAI Bis 

JA3H: BESansad I: ni HIäd:B85IN509: u’ R,IHL Uhadl.iNTud:Süli=etals Se 

| BESINS0H: Tu Yin iHläe: er u: KR, SH ihiäs DS 

BSFANSII: HL: SET5ÄANETI: nt a IHAEE N LNITAd BSSUTEUH SEE 

ih 

„LHIS4:BSSENSOI: iu! Abe 3iu NIT: BSSINSUI: Su diR. Ul.inIäd: BEIN Benz) Fee 
LAIN:BSSIN50H: u A Aa ihldd: BESIN50H: TR LAU: HTÜLI=EUDJ Se 


BSEAINS0H: u Ak Kal INIdd: 6SSaNSDd: A LHIdg: BEZ EITEINDSE ru LNidd Be 
| ll; bzueansie: earkinsr WiuniNläy Sic 
PR, 


IN: BSSIN50T: Fe RIHITIE. IHIAd: ir 1509: 70° BERLINS: bu iHIa4:BTOLT=N403 STE 
BESaNSs0d The 


'sränet 
KÜHNSCHL  LHIAI: 88591509; I. TER INIAER LH I cd: Bill. AN IRRRELRN LM IH eis 
| Soc SIEHE I ADS 2ds 
> | LA3H:B0BS0LI=1404: RC U LNITAd:5 BLSFEIAHUI: LR3N:BBBSCLT=US03 bb 
4 Nanil3d E03 


LIK3N:BBSCOLI=9U0J 28 

m JE Sichnaiiiusz HNIIdalirh ini. LHiad IE 
| | u Hi Se! 
MILBN 35 Bi LHIdd: MESHNOOTIGM IHIATS IHLEIDEEDRRL. LNIUd4: SE "S283E3A0d DEE 
| | BREOLDH 853 

WERE 

SE Te FE ET EINE. 1 30900000900060609090007 0095000500008. LNT Aid Li9 
8554111509: ! : EuiNnläd 35 


LEN: BSSENS0H: Tri ie GiuiHiäd: Siüldedihz STH 


I5GHlsld: un LHldd: 33sälsls: Laan: B5sdiisch: u RLLL.LNIädgd pE5 
sTöli=d4lgJ cE> 
BE5INS03: 7. RHLLLL „iNIdd 275 


beils Me 
a RR | #3 IL isdn. I 'ulNIdd It 
BESIN30I: u RAR. I: L a RT. LN I Sc 0er 


230.09: T=AUN3HLISPAUFL: Tu Denn IL «lNidd: LA3H: BESANSOH a re IL LHIGG SCS 
ricidsldls 253 
ul LNIdd: 8551505 en 33551505: BR IRÄELLL. HIGH: FIOLE=0303 28T 
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1A PRINTASICNEFTIRMSUBAAA:FORL=1TO21:PRTNTAEI FOPM=TMLAR: NEXT NEXT :PRINT"T"; 

12m At="" KOT LAERNDE LI FORL=1TOKAFSAS+CHRE 205, S+PNDELIICNEKT:FORL=1TNSAS/INT 

ce 

142 PRINTAS; "NEXT:PRINT"SAIRRGARTEN" :BOSUB4AA: AS="" Bm gr" K=2OHLMERNDE) 

1A FORL=1TOK:AS=REHMIDELREPNDELIKBHL:LI+" "NEXT PRINT" SS FORL=1TOSASINTEK) 

{EA PRINTAS:NEXT:PPIHT"SMLSTER" :GNSURAAA 

1794 PRINT": AESI FETTE IFTFTFTFLNITFT TFT LFLFFLFE TFT LEYP 

ar PRINTASAFASASASAEASAFREASAG"S" ; IAELAI="SPEZIALEFFEKTE" ARCHE" TAT 17 

122 PNKEYS, 15: FORL=ITNIAM:PRINT"S WTMIDse"" ,I+£LAHNDI1>. 

1 FAF<CLANDAN: 

195 POKEWE,. PRNDI1>’#1AA+149: NEHT:POKEVYE,. 0 

ZEA PRINT" TBETEITETTELTLTTL TIL TI ____ WET 

EEE TOLL IT DEREN FO CHE 

IEmE Emm" ; 

21a PRINT" PARL-TERL-ERL-TRBLTRRL-TEI Er] mr 

ıErmemieER Pam wenn ae WEN oO DD EFFEKTE I" 

zeaM GNSUB4AB:PRINT"TE=E": !' POKEISES7S.27:POK 

FrE93E3. 255 

=1@ PEARDA:FORL=ATOA: FORM=ATN?T: READA:PNKE 

71624 #9-+-M,A:NE=TM.L 

22M FORL=1TD4:FORM=1TOE:PRIHNT"BR": NMEZT: 

PRINT: FORM=1T0S 

=29 PRINT"ER"}:NEZT:PRINT"B":NEXZT:FORM=1 

TO@E:PRINT"RP": :NEZT:PPINT"zEI" ; 

249 FORL_=-1TD2:FORM=1T0232:PPRINT"IBRRRIRBBERT 

FU; AS=MIDELC"PBCcA",M.1>:FORN=1T019:PRINTRA 

£; NEXT 

341 PRINT"BER'" Az"; :NEZTM-L 

a2=59 FOARL=-ATMIA:’AF=MTNEL"BCA", CL/3-INTCL- 

=yIem+1.1. 12: FORM=1T0O21:PPINTAS; :HEXT 

2ER PRINT"ARB" Az": HEZT: PRINT" MYC— za: 
INTERESSRAHTE GRAPHISCHE „MOERLICH- KE 

ITEH" 

=7934 FORN=-1TO2:FORL=9TN7 : POIKE2E3793, 24+L_:F 

OARM=-1TO1FM : NE=ZT:NEKT:HEXT:GOSUB4AB: RUHM 

4@RM OANRNDZI1>F19+1GCNTN44M, 4EA, 450, Sad. Spa 

‚S4A.565A, 59, e1a.530 

44m POKEWS. 1A: FOARL=-2FIATON12SSTEP-1:POKEVYE 

‚L:’FORM=-1TNM2G:NEZTM,L 

459 PNKEYS. 5: PMKEYT, 2a0: FORL=-1STMASTEP-—. 

A='PNOKEYS.L:NEHT:POKEVWY?T. ©: PNKEYS.1S5:RETU 

OH] 

4ER FOKEWE2,15:FORL=1TO1A:FORM=12ATI225ST 

FP2:'PORKEYE.M:FORH=1TO1A:NEZTH.M 

47a POKEYE, a:FORM=-1TD1AA: NE=ZTM. L'’PETUFH 

ana FORL-1TD2a:FORM=-2SATN243=3:TEPF—-1:PNKE“ 

&.M: NEXT: FORM-ZAATN2SC 

A53@ POKEWYWE.M:NEHZT:POKEVWE, MG: NEHZT:RETUPM 

sag FORL=-1T05: POKEYS, 2aa: FORM=1TOSAA: NEM 

Tr Pre... AI: POHFF WS. Zam 

=1@ FORM=1TOS2EAR : NEXT: POKEYE. OA: NHEHT:PETUR 

+1 

=>2@aA FORL=-1T023:FORM=1T0OS52: POKEYE, 7a: FOPRN 

-1T05'NE=ZT 

=2m POKEWE, GB: NEMT: FORM=1TO2BAA: NEHTM,L:P 

FTURN 

543 FORL=-1TN2a:FNPEM=-254T024A+IHTCRNDC1>I* 
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1m>STEF—-1:FOFREWS.M: NEH#T 
s=a@a POKEWYS.S: FORM=-ATQIHNTeEPHTNCOIDHIEAH+-12H0 
"NFESTM.L "RETUPTN 
ze PNKEYS,A:POKEYT?T.15>7M:FORL=-1T93:D=-INT« 
iähE “1.75 > #59+5E: FORM=-FTCO1LT 

”a POKEY=Z2.M:FORN-1 TOLL: NEHMTH.M:'’FOrRM=-175T0O 
SSTE> 1: PFOfe2.M: FORH=1 TON: NHE&TN.M.L:'POR 
E77”. :POFEWS.15°'’PRETUFN 
aa FORL«- 1 TOZ22: FORM ZZI—-L_ _TOI1 SB -LSTEF—-4+:P 
OHEW/E.M:NEHST 
sog FORM=1HeE—1 TO249-L=STEPRA1: POHEWE.M:NE#-T 
MH. CPOKE,S, E:! RETURN 
1m FOÖORL_=-1T05: FOHERYS. Ze: FOrRM=1TO1GO:NEMT 

: POKEYT,. EU! FOrRM= ıroZza2 

e>0 NE=T :POKEW4,. ?ZGR FF FORM=-I1TO1MAM: HE=T: POHE 
1, a: FQFEhe-]I TOFZEIE:! MEZSTM. L :'RETUFHM 
s>Qo FORL=-ZI4ITALSSSTERFR—-1:FOHEWE.L_:'FOKEWYSES , 
A:FoeM=-1TO1E:HNE=ZTM.L_:’POKEVYE. BU RETUFH 
szoag TATR22, 7272.95. 732.722. 722. 722,732, 732. 158 
„am. O2. 22,22. 72,85, 180. 32. Se, 32.32 2 


4 nn 
s.2991 TrRTA2Zz,.7”2.16M. 32, 32, 62, 32,32. 92-16 
A. Fa, 235. ERS NEE 
135] 
san DATAIZ.22, 1629,32, 169,131. 168. 32.732 
.‚223.52.189.1721- 1E9. 32, 32. 32,.32.16509.1773. 
1-9 
s2agz TATASI.74, 32.79. 1E20.177. 15.242.106 
Q.772,.72. 31221. 1277. 1E0. 242, 1ER. 73.32.1689. 17 
5.168 
e-22AaA4 DATAZI4IS. 18.32.7372, 223.177”. 1E9., 2458. 
1. 32.292,32. 654,722, 7245, 1eM. >22. 272,722, rt - 7 
— 
= 
sapagG DTAaTAZAS. 1E9.,. 27.772,32. 160. 732, 245.165 
a. a2, 22.22.1908. 32, 2458,1095,532.32,232.131-75 
> 
=. 
E21 DATAFZE. 32, 32. 732,232, 1E9. 32.32. 32.232 
er en Bar = > er ee Rep 
-a12r DATAZ47. 227.123. 193. 227,.2E1.1765.172 
2B,5.9.0.n.m.0, m. 0. 255. 255. 255, 255, 299,25 
ae a 
3192 DATA 25m, 2997. 25, 2597.0.09.09,0 


Dieses Programm soll einen Überblick über stellen, das heißt Polstellen mit Vorzei- 
den Verlauf von Funktionsgraphen vermitteln. chenwechsel. und Extrempunkte ermittelt 


Zu diesem Zweck führt das Programm eine werden. Im Anschluß daran kann die 
vereinfachte Kurvendiskussion durch. in tion mit einer Auflösung von 176 


Funk - 
x 184 


deren Verlauf Nullstellen mit den ent- Punkten auf den Bildschirm ausgegeben 


sprechenden Tangentensteigungen. Sprung- werden. 
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Das Programm läuft auf der Grundversion 
des VC 20. Nach dem Start mit RUN fragt 
das Programm: F (X) = ? 

Die Funktion kann jetzt mit einer DEFine - 
Anweisung eingegeben werden, aber ohne die 
Zeilennummern DEF FNF.... Nach Eingabe der 


Funktion wird der Bildschirm kurzzeitig 
gelöscht. dann erscheint folgendes Bild: 
KURVENDISKUSSION 
NULLSTELLEN: 


Darunter werden nun die eventuellen Null- 
stellen und die Tangentensteigungen ausge- 
druckt ebenso wie eventuelle Sprungstel- 
len. 

Nach der Berechnung von Nullstellen wird 
die Funktion auf EXTREMA untersucht. Hier- 
bei unterscheidet das Programm zwischen 
Hochpunkten. Tiefpunkten und Sattelpunk- 
ten. Wendepunkte können aus Platzmangel in 
der Grundversion nicht berechnet werden. 
Falls eine grafische Darstellung der 
Funktion gewünscht wird. ist auf die fol- 
gende Frage PLOTTEN (J/N)? mit J zu ant- 
worten. da sonst das Programm abbricht. 

Im Falle einer positiven Antwort wird der 
Bildschirm gelöscht. Einige Sekunden spä- 
ter wird ein Koordinatensystem aufgebaut. 
Nun beginnt das Programm die Funktion zu 
plotten. 

Nach Berechnung des letzten 
tes kann das Programm durch Drücken bei- 
spielsweise der Taste "G@" verlassen wer- 
den, wobei die Grafik verschwindet und in 
der linken oberen Ecke READY erscheint. 
Zur Funktionsweise des Programms: 

Die Funktion wird in die Variable F$ 
eingelesen. 

Nun wird der Bildschirm gelöscht und in 
die erste Zeile 100 DEF FNF(X)= F$ 
geschrieben. darunter GOTO 100. 

In den Tastaturpuffer werden nun die Be- 
fehle HOME (19) und zweimal RETURN (13) 


Funktionswer - 


gepokt. Der entsprechende Zähler wird auf 
den Wert 3 gesetzt. Die nächste Anweisung 
für den Computer in Zeile 50 ist END. 


5 POKES6, 24:PRINT"IA 
18 INPUT" ="IF$ 
28 PRINT"IM1QODERFNFCKI="F$ 
3@ PRINT"GOTO198" 


KURPLOT 


Nach Abbruch des Programms. wird der 
Tastaturpuffer abgefragt. Dies führt dazu. 
daß der Cursor in die obersten Zeile 
springt. die Zeile 100 in den Speicher 
übernommen wird. und die Programmabarbei- 
tung in Zeile 100 fortgesetzt wird. In den 


Zeilen 101 und 102 werden dann die erste 
und zweite Ableitung definiert, indem die 
Funktion in Intervallen mit der Schritt- 


breite 0.1 auf Vorzeichenwechsel unter- 
sucht wird. und. falls erforderlich. die 
Nullstelle mittels fortgesetzter Halbie- 


rung des Intervalls bestimmt wird. Hier 
wird auch ersichtlich. warum in diesem 
Zusammenhang auch Sprungstellen ermittelt 


werden. da auch diese mit dem Vorzeichen- 
wechsel verbunden sind. Ebenso werden im 
weiteren Verlauf des Programmes auch die 
Extrema berechnet und mittels der 2. Ab- 
leitung als Hoch-. Tief- oder Sattelpunkte 
klassifiziert. Für das nun folgende Plot- 
ten wird die Anfangsadresse des Zeichen- 
generators mit POKE 36869.254 auf 6144 
gelegt und in diesen Bereich jeweils die 
erforderlichen Zeichen geschrieben. Das 
Programm verfährt dabei wie folgt: 

Es werden jeweils acht Punkte hintereinan- 
der berechnet und im Kassettenpuffer zwi- 
schengespeichert. Dieser wird anschließend 
überprüft. Die eventuell benötigten Zei- 
chen werden im Zeichengenerator abgelegt 
und auf den Bildschirm gebracht. Dies hat 
den Vorteil. den Zeichengnerator relativ 
klein halten zu können. da der Hauptteil 
der Bildfläche ohnehin leer bleibt und in 
diesem Bereich überall das gleiche Zeichen 
verwendet werden kann. 

Eine weitere Besonderheit liegt darin. daß 
auch Definitionslücken gemeistert werden, 
da für diesen Fall im Tastaturpuffer die 
nötigen Befehle abgelegt sind, um nach 
Abbruch des Programms aufgrund eines ER- 
RORS das Programm automatisch mit dem 
nächsten X-Wert weiterarbeiten zu lassen. 
Ludwig Schwoerer 


em CC) LUDWIG SCHWOERER" 


40 POKE631, 19: POKE632, 13: POKE633, 13:POKE198, 3 


sd END 


55 FORP1=8T07:POKEP+P1 , PEEK(C823+Y+P1>0R32:NEXTP1: IFY=96THENPOKEP+3, 253: G0OT0368 


56 POKEP+3, PEEK(828+7+3)0R96 : GOTOS6Q 
68 IFX1=7THENXE=B' SAi=X+1:G0SUB798:GOTO458 
65 KE=Xl+1:XA=X-,23:G0SUB?9:G0T0458 


?@ POKE631.19:POKE&32, 71:POKE633, 111: FOKES34. 54 :POKE635, 48: POKE636 , 13: POKE198, 6: 
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RETURN 
38 FORY=828T01811:POKEY,B:NEXT:RETURN 
38 PRINT" C"INTCCHLEI+.SI/LEI"/O) F’="INTEFNGCCHHIE2+.SPI/LEZ2:GOTO149 


189 
181 
102 
105 
118 
120 
138 
135 
148 
159 
168 
208 
218 
228 
225 
230 
235 
248 
258 
268 
265 
278 
275 
280 
238 


DEFFNFC@?=1 
DEFFNGCK?=CFNFER+IE-43-FNFCX-1E-4P 3 /2E-4 
DEFFNHCK?=CFNGCHHIE-43-FNGER-1E-43 I /2E-4 

PRINT" A KURVENDISKUSSION BINULLSTELLEN: "A=FNFC-18.1) 
FORX=-18T018STEP.1 

F=FNFCR) 

IFF&A<OTHEN288 

IFABSCFICIE-6THENC=K:GOTO9Q 

A=f 

NEXTX 

GOT0259 

SeX-,1:2=%:0=%-,05 
IFFNFCCH#FNFCZICOTHENS=C: GOT0225 

Z=C 

C=($+2372 
IFABSC2-S?<1E-SANDABSCFNFCCHI<LE-3THENIG 
IFABSCZ-S?<1E-STHENPRINT"SPRUNGSTELLE : "INTCCHLE4+. SP /1E4:G0T0148 
GOT0218 
PRINT"EXTREMR: " :AR=FNGC-18, 13: FORX=-10TO19STEP, I 
F=FNGCX#3 : IFFXA<SOTHENIQQ 

IFABSCFICLE-STHENC=K :GOTO368 
A=F:NEXTM:PRINT"MPLOTTEN? CJ/ND" 

GETF$: IFF$=""THENZ?S 

IFF$C>" J"THENEND 

GOTO489 


398 S=4-.1:ZeX:Ca=H-.05 

318 IFFNGCCIHFNGCZI<OTHENS=R :GOT0339 

329 Z=C 

330 C=($S+2)/2 

348 IFABSCZ-S?<LE-SANDABSCFNGCCHHSIE-2THENIEQ 

345 IFABSCZ-SI<LE-6THENZ7O 

359 GOT0318 

360 IFABSCFNHECIDLLE-STHENPRINT"S"  :GOTO365 

361 IFFNHCCI>ATHENPRINT"T":GOTO365 

362 IFFNH£CI<OTHENPRINT"H"; 

365 PRINT" C"INTECKIE4+. SP /1E4"/"INTCFNFCCIHIEAH. SP /1E4" I": GOT0278 

488 PRINT" IM": GOSUBBB: FORK=6144 106139: POKEX , 8: NEXT: FORX=76989T08185: POKEX, 8: NEXT 
418 POKE36869, 254: POKES15S, 255: POKE6156, 32: FORX=QT021:POKE7944+%,, 1: POKEISEE4+X, 6 
NEXT 


420 
430 
448 
458 
468 
478 
450 
499 
528 
10 
29 
539 
549 
sg 
s62 
70 


FORX=6169T06175: POKEX, 32: NEXT :POKE6163. 96 
FORX=OT04845TEP22 : POKETEIB+X ‚2: POKE3B41B+%, 6: NEXT 
POKE&171, 255: POKE?954, 3: 2=3: XA=-19. 25: XE=9: GOSUB?® 
FORK=KATO1B. 75 

FORX1=XETD?:Y=-1INTCS#FNF CX+%17/87+.5)+99 
IFY=>aANDY<194THENPOKE828+Y , PEEKCS28+ 7) +2 1C7-X1) 
NEXT#1:XE=9 

FORY=QTO133STEP8 

FORY1=8T07: IFPEEK(828+Y+F13<>OTHENS3Q 

NEXTYI 

NEXTY:GOTOS78 

Z=2+1:P=6144+9%2: IFX=-.25THENSS 

FORP1=8T07 :POKEP+P1 , PEEKC828+Y+P1>:NEXTPI 
IFY=95THENPOKEP+3, 255: POKEP+4, PEEK(828+7+4)0R32 
POKEX+7698, 25+22%#7/8, 2: POKEX+38410. 25+22%778,6:6070529 
GOSUBSB : NEXTX :POKE198,8:WAIT198, 1:POKE36869, 249: PRINT"TE" 
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Durch Eingabe von Zahlen kann selbst 
grafisches Programm gestaltet werden. 


Timo Kissel 


@ PRINT": Tell: J=11:K=11:Lell: 
IHPUTI,I.KL 
1 EI SFARHBERERFRERERERPERERRT n4= 


2 YET" 
4 262" IH 
118 PRINT"; 
180 KOSLB2ABB 
131 GOSUBZAQA:CH=BF 
2am M=K 
219 FORN=ITOJ 
229 KBOSUBLAAA:PRINTBE 
23@ NEXT 
249 N=J:FORM=KTOL:GOSLUBLABR:PRINTCH:NEXT 
259 M=L:FORN=JTOISTEP-1:GOSUBIAAR: 


PRINTB$:NEMT 
2£6A H=1'FORM=LTOKSTEP-1:COSLIB1QOM: 
PRINTCE: NEXT 
27@ I=I-1: J=J+1:K=K-1:IFK<BTHENSABQ 
271 IFI<LORTZIORKI21ORL>Z1THENQQR 
288 L=L+1:GOT0189 
12aA PRINTLEFTFCR$,HD; 
:FETURN 
2zaa0 FE=MIDECHE, INTCFERNDEIDI+1,1) 
2a01 BE=MIDECZE. INTOLOHRNDEIIS+L, 1) 
"Be=V£+B$ 
2aa2 TFRHDC1Y>, FTHENBE=" A" +BF:PETURN 
2893 RETURN 
aaa GETWE: IFWE=""THEN3QBA 
3091 CLR:GOTD1 


:PRINTLEFTFCDE,M3; 


Dieses Programm ermöglicht eine bedingt 
hochauflösende Grafik 'schon in der Grund- 
version des VC 20. Es werden Daten als 
Balkendiagramme hochauflösend dargestellt. 
Zur Bedienung des Programmes: 

Bei der Frage nach der "Anzahl der Daten" 
wird die Anzahl der gewünschten "Balken" 
des Diagrammes eingeben. das heißt die 
Anzahl der Daten. Dann folgt die Eingabe 
der einzelnen Werte. 

Die Frage Automatik/Hand wird mit A oder H 
beantwortet. Bei Automatik berechnet der 
Computer einen Faktor. mit dem die Daten 
einzeln multipliziert werden. Dies ge- 
schieht solange. bis der VC 20 einen Wert 
gefunden hat. mit dem die einzelnen Daten 


REM- BALKENDTAGRAMM- 
REMN=EÜCH 1982, BY, * 
REM-TIME KISSEIEFT7.- 


ia Tl rm ıD 


50 


durchmultipliziert alle zusammen (!) auf 
den Bildschirm passen. Andernfalls geben 
Sie diesen Faktor per Hand ein. Dabei gilt 
die alte Regel: Probieren geht über stu- 
dieren! 

Mit dem Hauptteil werden die Daten darge- 
stellt. Der errechnete Mittelwert er- 
scheint in roter Farbe. Der Rechner fragt 
nun: "Mittelwert einbinden?". Wird "J" 
gedrückt.dann wird der Mittelwert als 
dünne Linie in das ganze Diagramm einge- 
tragen. Andernfalls beendet der VC das 
Programm. (In der Zeile 10 sind die acht 
Grafikzeichen. die von "I" nach " " gehen. 
abgebildet. 

Timo Kissel 


4 REM-NEIDENSTEINER - 
5 REM-HOEHE 14 ” 
6 REM-E921 SPECHBACH- 
7 REM-TEL9S226/749992- 
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3 REN 

2 REM ik DATENEINGABE 

19 Data"! n Aa n nauf n ‚us n ; „ br m", Re, u " u) mw", uk] w" 

11 CLe=" LLELLTTEITLLLTLELLLLTE 

12 BL$="--------------------- TLLLTTLELLLLLLLLLLLL 

13 DEFFNACKI=INTCLDRKM)/LAR 

14 DEFFNBCHI=INTCLADOKK) LOAD 

15 BS=4#CPEEK C36B6E)ANDL2B)+GAKCPEEKC3EBESIAND120) :FA=ARCPEEKCIGBEEIAND128)+3788 
Q 


2a DIMAECSY.MCS>:RESTORE:FORI=1TOS:READAFCTI:NEAT 
25 DATA1A1.34,71:.66.923. 72,899, 103 

27? FORI=1TNS:READXCTI: NEXT 

38 PRINT" TPABALKENDIAGRAMMG — 

42 IMPUT"WANZAHL DER DATEN ";R% 

41 IFARZLORAH>ISTHENAO 

45 DIMACARI BAM) 

46 INPUT"WALTOMATIKAHZEIGE" AZF 

sa PRINT:FORI=1TIAZ:PRINT"MERT NR." : INPUTACIY 
sa PRINT"TWWERT HR."T"="ACIS"EM" :ROID=SACTI:HERT 
#1 F=1: INPUT"TREUTOMATIKZHEAND" WE PRINT": IFb$="H"THEN?B 
62 GNSLB4AR 

54 FORI=1TOAZ: IFACDISISZTHEHI=RA:GOTO2OQ 

&5 NEXT:GOTOSA 

za AZp="J]": IMPUT"TIRFRKTOR=";F 

aa FL=9:G0SLB4AR 

32 IFFLTHENPRINT"SHEUER FAKTORIT" 

83 GETUF: IFUE=""THEN83 

84 IFFLTHEN?Q 

BErRIHT" = TASTE - °° 

22 GETUE: IFWE=""THEND2 

108 REM *%%* HAUPTTEIL 

185 PRINT"T"; 

118 FORI=1TORA 

115 IFI<1ATHENPRINT" "MIDSCSTRECTY,. 2,195 :G0ToO121 
12a PRINTMIDSSSTRECIY,2,23; 

121 IFACIDLLTHENPRINT"T ": G0TO155 

122 IFACTI<SSTHENPRINTAFTACTII:GOTO155 

13@ FORJ=1TOCARCII/SN 

149 PRINTAFCS>, :NEZTI 

158 U=RCII-CT-1 RS: PRINTAFCHI 

155 NEXTI 

156 B=9:FORI=1TOAR : B=B+ACTI :NEXT:NM=B/RA 

157° PRINT", :FORIJ=1TOCM/S 

158 PRINTAFCSI::NEXTI au 

159 IFM>STHENWU=M-CT-19%8: PRINTAFCH) 

168 PRINT"PIRTTTELHBERT="M 

185 PRINT"aMITTELWERT EINBINDEN?" 

1656 GETWE: IFWE=""THENISS 

167? IFW$="N"THEN1SA 

RIrREM 221. 93 

172 FORI=1TOAZ 

173 P=BS+M/S+C22#12-20:41=M-8%C INTCM/SPD 

174 IFM/S=INTCM/SITHENKL=HL-1 

176 IFPEEK{PICP32THENPOKEP,#C#13+128:G0T0178 
?7? POKEP., #681: POKEFR+M/S+T22#17-28,6 

173 NEST 

138 PRINT"TIATEN ALS ZAHLEN? " 

181 GETWE: IFUE=""THEN1S1 
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182 IFWE="N"THEN1S9 

183 PRIMT'IEHR. IMERT CFA="F'B" 

184 PRINT" ——————— ——  —" ! FORT= 1 TORR RR TI EVER ESBLFHELFHCLF GOSUPB 
3am:NEAT 

189 PRINT"FRKETORISIERTE DATEN@": PRINT"; 

186 GETME:IFUF=""THEN1SE 

187? FORI=S1TOAR: SH=SBETDIEHVES"" AE=BLSHBLFHCLE  GOSUBZAR NEXT: PRINT"SORIGINAL- DAT 
EN " 

128 PRINT"ZTT END 

18° PRINT" Rn 

13a FRINT"STTT'::END 

za REM ##%* LINTERPRG 1 

aaa IFF<.AZTHEN22O 

218 F=F-.Al:F=FNACFI:FORI=ITORRACTI=BETIEFNEXT:GOTOE2 
220 F=F-.QB1:F=FHBCR):FORISITORZ:ACTI=BETIHF NEXT: GOTO62 
=88 REM ### LIHTERFFG 2 

31a PRIMTMTERVELSTABCH "EI MYF; 

32m B=INTEHKI: BE=STRECRIL=LENCRE) 

33a IF#s=@THENL=2: GOT035@ 

343 IFHRZLANDKGS>-1THEHL=1 

35a PRINTTABL1A-LINK"E" 

378 RETURN 

and REM #4 LINTERPRG 2 

4a1 PRIHT'SSHR. IHERT (FA= IERRBI"F "NND" 

A ET El ee FOR IF TORE 

413 RCTD=BCII#F 

417 Sell) 

a2a IFX#>1S2THENMVE="8"FL=1:G0T0438 

421 IFAZE="H"THEN431 

425 KVE='E" 

43a IFAZE="T"THENMTESCLE: GOSUBIAA 

431 HEXT 

459 RETURH 


Dis 
' 
I 
\ 


Das Programm zeigt verschiedene grafische 
Möglichkeiten des VC 20. 
Timo Kissel 


1 REM £C3 1983 Br Fa KCII=FHACHANSNENT 

2 FEM TIMO KISSEL ıaa FORI=1T018 

3 REM 195 AF=MIDECHLE. INTCSEPHDCLI+UI. IH" N" 

5 IMPUT"WART 1,2 NDER 3" SARE:PRINT"N": 119 FORI=1TOKLIS:PRINTAFS:HEXTI, I 
IFAR$="2"THEN2Q@ 12a GETAF: IFAg=""THEN12O 

& IFAR$="3"THENZAR 130 GOTOSA 

1m HIERHER" zaa His" WSARENT" 

20 POKE36879.138 za1 PNKE3E9?9, 138 

3a DEFFHACKI=1AFKERHDEL) 2a2 FORI=1T022 

sa FORI=1T010 215 AS=MIDSCHLE, INTCHKRNDCOLI+LI.1IH" N" 
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229 FORI=1TO21:BF=BEHAF: NEXT s1@ PRINT": AF=MIDEEHLE, IMT 

23a FRINTBF:BF="":NEMT ESFRHDEI DHL, DI ET ALFSAF 

24a GETAF: IFAF=""THENZ24A 311 FORI=1T021:HHE=HHS+AF+" "NEST 
25a GNTO2A2 12 A$=MIDECHLE, INTCSKRHDELIFHLI. DH" N" 
san HIS-"EÄ HET" #13 IFAF=ALFTHEH312 

321 POKE36ES79, 138 314 HrE=Af+HYE 

a2 H2E=" "HE" 328 FORI=1TD1A:PRINTHXF:PRINT:NEHT 


203 HyY&=" "+HOFHHIEHH2FHH2FHH2E+HIE+H2F+H2F 339 FORT=1TO1ISTEP2:PRINT"S"TARCIIHTF: NEXT 
+H2E+H3E+H2F+H2SHH2F+HIF+H2FHH2FHH2F+ 24m BETAS: IFAF=""THENZAR 

H3£+H28 a3=B RLUNSAR 

sa4 Hag="":Hag="" 


en 


Das Programm baut ein Mosaik auf. das 
seine Farben ständig wechselt. 


Commodore 

1ad POKE36S79, 209 155 POKE CT+T#22+J:A 
1a5 YR=FEEA:CTEIIAAN 1ea NEXT J.1 

11a S=e16a:PRINT "T" 17a R=RHDELIENT 

12a FOR I=d TN 22 139 C=RHD“1YE22 

13a FOR J=A TO 21 12a A=RNDEIIET+HL 

140 A=RND{IIHT+I am POKE CT+RX2EHT,A 
15a POKE YR+I#22+J.5 218 GOTO 17 


Das Programm demonstriert den Aufbau einer 
Flagge. 


Commodore 
A POKES2:28:POKESS, 23: POKE36369, 249: POKE3ES?S. 27: BYE="TSCHLUESE"CYE=" IB) 


1 FRINT'TEULSSTEN SIE SCHOH,DASSIN IHREM YC-29 ZUEI KLEINE MAEHNNCHEN WER-STEC 
KT SIMD? 

2 FORA=1TNSAR: HERT: PRINT" ORTRDA A" : DS =" SONDNDRDMINDEORDEIRDENN" : IE= "TTV" :VY=36R74 

= POKEV+4. 159: GOSUB19:PRINTDE" BETT": GOSLIB3E :PRIMT"TTBRLZT" GOSUB3TPRIHTIII TU 
art :GSOSLUB37 
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4 PRINT" 0 IBM. ":GOSUB37:GOSUB19:C=11:G0SUB21:GOSUR19:GOSLB22:GOSUB19:C=8:6 
NSUB21 

5 GOSUB2R: GOASUB22: GOSURLF:PRINT"TI DRBRET" :GOSUR1S:PRINT"'TII IBBBOT" 

6 FORA=2T09: GOSUR1S:PRINTSPCECAF"T "NEXT: FORA=1T07:PRINTDESPCCR+S3" ":FORC= 
ı TOR 

? PRINTSPCEEISD"TTI " :NEXT:NEXT:PRINTSPCELZI" ON DS EETILODERN | MUREI | ":GOSLB19 
a8 PRINTSPECSI"TTTI" SPRINTSPCCSI"TT" :PRINTSPCESI"TTI" :GOSLB42 

9 PRINTSPEEIZS MO BOT ER RE | | RE | | SDTKIm"  FORA=1TDER:PRINTSPCLISY"EST 
1 :GNSLıR1S i 

1m PRIMTSPEOIEN" IT" GOSURIS:NEXT:PRINTSPCCEI" MM IRA IRERET UL": GOSUBZA: PRINT" 
MER" SPEISEN" 

11 PRINTSPEEISI"T ":PRINTSPCEALSI"TE" PRINTSPCCLSI"TI ":FORA=1TO? PRINT" DTM" :FORC 
=1TNA:PRIMT!HEXT:PRINTSPCEISP" " 

12 PRINTDESPC(?+C8-AP 3" NEXT: FORRA=?TO2STEP-1:G0OSUB18: PRINTSPCEAY "TI "NE 
*T 

13 PRINT"TIN"SPCCSI"M ":GOSUB1B:PRINT"TTTM"SPCCEI"MN ":GOSUB18:FORA=1T02:PRINTS 
Era ).- 

14 GNSUB18: NEXT: GOSUR12:PRINT"TTI" :C=8: GOSUB27:C=12:G0SUB27?:PRINT"TI 7) DIE LAN 1": GN 
SLIR39 

19 PRINT"TITWE ME mm 0" GOSUR4A:PRINT"TWRLTT BP" GOSUB4A:PRINT"IBI BURN " 
16 GNSUB48:GOSUB19: PRINT" BETTER": GOSUB3E:PRINT"IROIOHITLABFR" BYE: GOSUB37:G 
NSUR19 

1? PRINT"IRIL__—_IaF] IB! ":R=A:A=195:GNSLUIB4A:PRINTIBU'CVE "REN ":GOSLUB4A:GOSUBI 
9:GOS1UB19: GOTOR1 

18 FORB=1TO1A:NEST:RETURN 

13 FORB=1T01AAA NEXT: RETURN 

2a FORB=1TNS8:NEXT RETURN 

21 PRINT"TIBBIO" :RETLFH 

22 PRINT"IBFLO-" : GOSLUB2B: PRINT"IBIITEIREES ER." GOSUB2@:PRINT"IAFM FTTINAIEETIN": 
GOSIIR2Q 

23 PRINT"IRKRAFTIUNBEN ER EIERN TUHB | 1" :GOSLIB2A: FORA=STOT : POKEV. 208 

24 PRINTSPEEADLE" OB EEE MUB / 1" A=A+1: POKEV.A:GOSUR2A 

25 POKEY,2AA:PRINTSPEEADLUE" OEM EEE TOUHEI 17": POKEY,@:GOSUB2A: NEXT 

26 FRIHTSPECADUE" OT EES EEE I I I 1 " RETURN 

27 FORA=ETOSSTEP-1:POKEY, 2aM:PRINTSPECAIUS"O EEE MERmLI TURHEN\ ":A=A-1:POK 
EA 

23 GOSUB2M:POKEY, 2AA:PRINTSPECAIUS"O UNE EELA EBEN) ":POKEV.A:GOSLIB2A:NEX 


23 PRINTUE"TWERL_ OBERE N. ELA TERN. EM ":GOSUB33 

38 PRINTUE"TIBRI INT. ERBE WEBELA HB I ":GOSUB34 

31 PRINTUE"IEBT UNO) EEE TB ":COSLB34:PRINT"TTIEBI MEDIEN" :GOSUB34 

32 G0SLUB34:PRINT"IBBET] I ":GOSUB19: RETURN 

33 A=254:B=4 

34 POKEV,R:B=B+1: TFB=2THENB=R:'POKEY, A: RETURN 

35 A=A-1'650T034 

36 B=9:A=128 

POREV.A!A=A+11: B=B+1: IFB=STHENB=0: POKEY. 9: RETURN 

507037 

B=0:A=254 

PAKEWA:A=A-11:B=B+1: IFB=3THENRB=A: POKEY. @:RETURN 

41 GOTO4R 

42 PNKEY. 243: GOSUB4S: FORDY=1TO2R0: NEXT: POKEY., 241: G0S1UB45: FORDY=1TO1SR: NEXT 

43 FOKEY. 227: G0SUB45: FORDY=1TO4R: NEXT: POKEV, 241: GOSUR45: FORDY=1TO4AR:NEHT 

44 POKEY, 243: GOSLIB45:FORDY=1TN4AM : NEXT: POKEY, 246 G0SUB45: FORD’F=1 TIGAA :NEHT:POKEY 
‚A RETURN 

45 PRINTSPCCISS"RI TURN ME" RETURN 

#1 FRINT"TE"; :POKE36869, 255: POKES6879. 27 :RESTORE :PEADA:FORL=BTOR: FORM=ATO?:READA 
62 POKEY16S+L#3+M, RA: NEXTM,L:FORL=1T04 :FORM=1T06 :PRINT"RB" 5 :NEXT: PRINT: FORM=1T08 
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@2 PRINT"B@"::NEXT:FRINT"R":NEXT'FORM=1TNE:PRINT"@R": NEXT:PRINT"39"; 
24 FORL=1T02:FORM=1T02:PRINT"IBRBRRRRBERI" ; :AF=MIDEC" BER" .M, 13: FORN=ITO1B:PRINTAS 


NEST 
z=& PRINTER" SS NEKTML 


5 FORL=BTOIA:AF=MIDEL "BER", CL/3-INTCL/3II83+1.1: 13: FORM=LTO2L:PRINTRAE; :MEXT 
? PRINT"ERMAL"M" MEXT:PRINT" AMYC-28:EIN COMPUTER MITVIELEN MOEGLICHKEITEN" 


Er 

58 Er POKE26879, 24+L:FORMe1TOIABA:NEMT:NEKT:RUH 
59 DATA3,247,227,128:.193.227,281.:156:199,0,9.A 

7a 


‚a:R;0, 92 A 


nAaTtA PENDEL Be 2 Ze 29 255 25,233, 255,255, 09,8,8, 9 


Das Programm demonstriert selbständig 
verschiedene dreidimensionale grafische 
Möglichkeiten des VC 20. 


2 PRINT" TODMREBAIM ME HIT E " 

&; PRINT" SMTERRE_NGE > 

7 PRINT"MBED-GAUSS : 727" 

2 PRINT"MBBRMLULTICNL. : 3°" 

11 PRINT"MBEIN-GAUSS : 74°" 

12 PRINTTMBEPIRALE : 75°" 

14 PRINT"WBECHNECKE : 76°" 

15 GETAF: IFAF=""THEHMIS 

18 NNYALLAEIGOTOZA. LARA, 2aAR, Fam, dann, 

2A FIR? j 

21 CLR 

22 DIM.1.6:6 

23 DATA. 439,511, 209, 5Q0,21.,80 

aa DATA1.439,511,159,259,17,85 

48 IHFUT#1.515, 3970315.309 

sa TMPLT#1. 520, 74370308. Lad 

SA RLUNI.268. 511 

za INPLT#1,20.33070758, 33910688, 38870528, 
BATNS20 . 330 

ad RUHN1.530.320 

sa THPUTZ2 

12 


an THPLIT#1., 329, S5AT0598, FIAT075A,72ATn920, 


?2ATN52R. 55 
m RUN.S2R, ER 
= FORN=1TO3ABA:MEAT 
Aa FORK=2TO? 
122 TINK,K,15.K+1 
123 FORN=1TIZAAA: HEMT 
124 NEXT 
12% NEXT 
aan FORZ2 
1995 CLR 
ıs1a DIMS,S,2.4 
ıaaa INPLUT#1. 149, SAATI9aR, Dan 


5 = 
A 
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INPUT#1 , FAR. BSSTOSU0. 315T0940, 
SRaTıaan. 885 


2 THPLUT#1. 109, SABTN1aA. 1A 
' INPUT#1.85. 1aAT0115.109T0199, 


4AT085, 198 


a INPLT#1.325.770T0335. 79970376, 


76270323. 77 
RUHM. 210. 2a 


A THPUT#I.1MA. SAATN34A, EM 
A RUN. 100,98 


GOTR1.8. "9" :GOT019,17,"% 
INPLIT#1.344., FRATNI?E, 762 
FORDM=ATOIZAASTEP1A 


A FORN=ATNI4 


“=6. 3937 58N 


A KN0=.RA5:SI=0,.21+D4%0.093 


A=4ANHEKP (-( CDX-299) 8.907) 12) 
T=rAR-RHEHPL-1 CHAM KEN T2/STI-DR/2 


2a READI.SHLODHDK,Y 


A NATA2,512:512 
A RUND, Sam, ARg 
a RINZ, Kan. dan 


2 NEXT 


NEXT 

FOR3 

ELR 

nDıM1,2,13,6 

IMPLT#1,29.AT01923. 10 

TNPLT#3.9,1923701923: 
‚Sam, 4A 


INPUT1S 
RLIN2, 790, 320 
RLINT; a 
PIUN?, 2A, SE 


A RUNS, SB) sa 
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12a RUNI.EnA, AR 4a2aS CLR 
2139 RUNI.6AA,TaA 4ald DIM.1.3,1 
214@ INPUT aa2a FORI=1T030 
1a GNTDA, Ss, "COMME" 4a23A R=ZamkARsSc TAHL Ten 2a.) 
215@ IHPLUTR 4a4a DATA. 30, 3381, R, 50 
ira GOTD18.4, "WC COMPUTER" 4059 MEKT r 
18a FORK=1T02 ansa FORK=SITOIBRE:HEHT 
212R FORIT=1TNIAA: NEXT 4272 DIMB,Q,2,1 
2209 NIM1,6.13,2 48Sa FORI=BTN1? 
2212 FÜRI=1T0598: NEXT 4938 DATA1. 29. 4RO+3CHT, SOKSIHC TE 29) , 30 
2229 DIM1,2.13,85 “ad MEXT 
2230 NEXT 4112 FOR2 
2249 FORK=1T02 4129 DIM3.3,4,1 
2250 DIMA,2.13.58 4134 FORI=1T023 
2259 FORI=1TOTAU:HEKXT 4149 DATA1. 19223, 1023, 2087, ZART, 50, 50+1 
2z7a DIM.2,13:6 41309 NEXT 
2222 FORI=1TOSAB: NEXT 416 FORI=1T025 
229 MERT ara DATA1.523, 10223. 20%1. 20T, 1Aa-T, da 
2229 FORK=1T02 41am HEYT 
231@ FORI=1TOSA2: NEST 4139 DIM?,7IE,1 
2329 DIMA.2.13,8 422g FORI=1TN39 
2239 FORIT=1TISAA: NEXT 4212 DATAL.,SAA+16%I, 209,39, ARSC DEM 
2349 DIM1.6.13,2 SIMCTEERTFION) T2) 
2259 NEXT 4220 NEXT 
aaKA FORK=1TN? 4229 FIRN=1TO2 
237?a FORI=1TOFRA: NEXT 4242 DIMA,R,1,1 
39a DIM2,6,13:1 4252 FORK=1TOLRAA: NEXT 
2338 FORI=1T0FAR:NEHT 4262 DIM2,2,2,1 
24a DIML.6.13:2 4270 FORK=1TO1ABA: NEXT 
2419 HEKT 4280 TIMS,9,2, 1 
4239 FORK=1TOIARACHEHT 
ee aan DIMG,E,2,1 


4319 FORK=1TN1ARA: HERT 
422a DIM4.4,2,1 

4338 FORK=1T01998: NEXT 
4342 NEXT 

4358 DIM1.1.2:.1 

436 FORK=1TNSOAA: HEKT 


3218 DIMS.5.6.4 

Sa2a INPLTI 

3239 INPUT#1., 190, 9aaTlsan, aan 

sa4a IMPUTHL. AA. 8S5T0A99, 915T0940. 
ABaTOaAM, 885 


aasa TNPLT#H1, 1A, SaaTnian. ma 47a NEST 
aasa TNPUT#1.95, 1DATO115, 1aATN1AR, aan DIMB,1,.2,1 

daTnss., 19R sans CLR 
zara IHPLT#1.325, 77970355, FaRTNa7E. san FORI 

FE>2TN323.7r70 za2a Yalıuk 
aasa PUNt,a1A.saa za3a Kart, 15H1C0SCHIE, A 
sasa IMPLIT#1. AR, aAaTO24a, ar EA4M TESAAKSINLYWSHS1? 
1a RUN, 199,90 zasa TFKCa#m/2THEN: TNPLUT#2, A, ATNYHI2IHEM, ) 
a11a GOTO1,9,"Y":GOT019. 17, "GOTT" SacR IFRSM/2THEH:THPUT#2, 1923, 1AOITO“ 
12a IHPLUT#1,240, FBATN376, 762 1 pc 1:07.21. 700 
23149 FORNK=ATNAAASTEPIA sara IFH>S#nTHENSAIH 
15a FORN=ATNI4 sasa GOTDSB2A 
1ER %=6, 393754N zsasa FLNI.9. 1223 
17a KN=,895:51=0.A1+Dx#a.003 1m RUN. 1922, 
213A A=4AdFSINCDHTENK/aARN sı1a FORI=1T07:FORT=1TN7:FORK=1TN15 
3120 YeSAa-AHEHPL-1CH-2BNEEN A/STY-IN/2 — S115 IFIS2THENSISA 
=2a9 REATI.K+H1MA+DY, 7 12a DIML,I.KA 
3210 NEXT S130 NEXTK:FORP=1TN1AAR:HEXTP 
3220 NEXT =14M HEXTI:FORP=1TMIAAA:NEHTP 
3229 HEXT =15R NEXTI:FORP=1TNIAAA'NEXTP 
4ana FORZ sana anTnza 
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Das Programm verwandelt den Computer in 2% GOSLUR1AQ 
eine selbständig spielende Orgel. FA KOM :G0SUBLAN 
; ?a Ya=ki:GOSUB1AR 
En .Kiseel 28 FORI=1TOFNAC2909) :NEXT 
85 GOT028 


a REM <C) TIMO KISSEL 129 POKET1,#1 

1 PRINT" TUT" 181 GOSLB298 

2 PRINT" ERIK MIMT-ORGEL ck" 195 FORI=1TNYFI'NEXT 

3 PRINT" BRakakakakalak toll" 119 POKET2,%2 

4 PRINT'SM TI T2 T3 111 GNSLB2Q8 

5 DEFFNACHI=I4B+INTCRHRNDELI+HLI 115 FORI=1TOTZ2:NEXT 

18 L=36878:POKEL, 15: T1=36874: ı2@ POKET3,43 
T2=36875:13=36876 121 GNSUBZAB 

11 POKETL, 159: POKETZ, 159: POKET3, 151 123 FORI=1T0Y3: NEST 

2a %1=FNAC 1889: 42=FHAt 190): X3=FNACIOR> 138 RETURN 

22 T1=FNALSAA: VZ=FNACSAR) : Y3=FNALSAR za PRINT"S"PEEKCTI>PEEKCTZIFEEKCT3I: RETURN 


Das Programm demonstriert verschiedene Geräusche können anhand des Listings auch 
Geräusche, zum Beispiel Laserstrahlen. für eigene Programme verwendet werden. 
. Sirenen. Vogelstimmen. Wind und Meer. Die Commodore 


1A 49=36878:17=36977:VE=36876:V5=36875: V4=36874 

2a PRINT"TECALES": POIKEYS, ‚19 FORL=25ATO2AASTEP-2: POKEYE,L:FORM=1TO1A9:NEXTM,L 

3a FORL=2ASTN2SASTEPE: POKEYE,L:FORM=1TN1AR:NEXTM.L:POKEYE,@ 

44 FRINT"MCOMFLUTER MANIA":FORL=1TO1A8: POKEVE, INTERNDE1IK128?+128: FOPM=1TOLB:NEAT 


ML 

za POKEYE,A:PRINT" EXPLOSION" :POKEY?, 228: FORL=1STDASTEP-1:PNKEYS,L: FORM=1TO3AR: N 
EHTM,L 

sa POKEY?,A:PRINT"WEOMBS AMAYI":FOKEVS, 18: FORL=23AT0128STEP-1:POKEYE,L:FORM=1T02 
B:NEHTM,L 


a POKENYE, A: POKENT?. 2AM: FORL=1ST09STEP-. 95: POKEVS,L:'NEXT:POKEY?,A 

sa PRINT"WRED ALERT" :POKEYS, 15: FORL=1T019:FORM=18AT0235STEP2: POKEY6,M:FORN=1TN19 
:NE&TN.M 

aa POKEYE.A:FORM=1TDIAM:NEHTM,L 

aa PRINT"WLASER BEAM":FOPL=1T030:FORM=259TN248STEP-1 :POKEVE,M:!NEXT:FORM=249T025 
A 

11R POKEYS,M:NEHT:POKEYE.A:NEKT 

128 PRINT"WHIGH-LON SIREN":FORL=1T05:POKEVS, 280: FORM=1T0598: NEXT: POKEVS, A:POKEYE 
‚ar 

13a FORM=ITOSQRNHEXT:POKEYE.8: NEXT 

14A PRINT"MRUSY SIGNAL":FORL=1T03:POKEY6, 169: FORM=1T048B: NEXT: POKEYE, A: FOPM=1TN4 
la) 

158 NEXTM,L:PRINT"WPHOHE PINGING":FORL=1TN3:FORM=1T058:POKEV6 220: FORN=1TO5:NEXT 
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16R POKEYE,G: NEXT: FORM=1TO3AAA: NEXTM,L 

17a PRINT"MBIRD CHIRPING":FOPL=1T028: FORM=234T0240+INTCPNDEL>HLAISTEP-1:POKEVE,M 
"NEXT 

182 FOKEYS, A: FORM=ATOINTERNDCLEIAMI+LZB:NEXTM.L 

122 PRINT"MIIND" :POKEV4, 17Q:POKEV?, 242: FORL=1TD3QAA: NEXT: POKEY4, 9: POKEY?,@ 

2aa FRINT"MOCERN HAVYES" POKEVB,A:POKEY?, 189: FORL=1T05:D=INTERNDE 185) 5A+5R: FORM 
=37013 

218 POKEVS,M:FORN=1TOD: NEXTN, M:FORM=1STO3STEP-1 :.POKEYS. M:FORN=1TOD:NEXTN.M,L:POK 
Ev7,A 

22a PRINT"M/ANISHING LFD" :POKEYS, 15° FORL=13910254 :POKEYE,L:FORM=1TN4A: NEXTM,L:PO 
KEVE,A 

239 PRINT"MIFD LANDING":FORL=1TO20: FORM=228-LTO168-LSTEP-4 :POKEYE.,M: NEXT 

248 FORM=169-LT0249-LSTEP4:POKEVE.M'NEXTM,L:POKEVE, A 

aa PRINTAIFO SHONTING"FORL=1T015: FORM=208T0229+L#2 :POKEYE,M:NEXTM,L:POKEY6, A 
2ra PRINT"MHOLF WHISTLE" FORL=148T0220STEP. 35: POKEYE.L:'NEXT: Valle En 3: 
POKEYE.L 

27a NEXT:FORL=2AATN12SSTEP-.5:POKEV6,L:'NEXT:POKEVYE.R 

28a PRINT"IRUNNING FEET":FORL=1TM1A:POKEY4, Dam: FORM=1TOD1A: NEXT: POKEWA4, A: FORM=1TO 
1Aa 

239 NEXTM.L:’PRINT"MTICK-TOCK" FORL=1T03:POKEVS, 288: FORM=1T019: NEXT: POKEVS. 8: FORM 
=1T03@8 

388 NEXT: POKEY4. 2a: FORM=1TD19: NEXT: POKEY4.@:FORM=1T0388:NEXTM,L 

318 PRINT" DOOR OPENING" :B=@:FORL=128T0253STEP11:POKEY4,L:FORM=1T019:NEXT:B=B+1 
2m TFR=STHENB=R: POKEY4,O 

22a NEXT: POKEV4,.M:PRINT"MELIPS" : POKEVE, 228: FORL=1T0S: NEXT: POKEVE,B:FORL=1TMIDAR: 
NEXT 

34a POKEYS, 208: FORL=1TN5: NEXT: POKEVE, BD: FORL=1TO19RB: NEXT 

33a PRIHT"MDOCTOR HUHN" :FORL=254T0128STEP-1:POKEVYES,L:POKEVE, A: FORM=1TD1A:NEXTM.L: 
PNKEYS.R 

36a PRINT"MEAZZBERPY" POKEY?, 14: FORL=1STNASTEP-. 25: POKEVS,L:POKEYS,@:FORT=1T019 
2378 NEXTT,L:FOKEVY?,A 

993 POKEYS.A 


Mit diesem Programm können Sie die oberen Reihe (Zahlenreihe) die schwarzen 
Tastatur Ihres VC 20 als Mini-Klavier Tasten. die Tasten der zweiten Reihe 


einsetzen. Dabei bilden die Tasten der oben die weißen Tasten. Commodore 

1a DATA216.9.,9,214,0,.0:296,131,145.157 

2a NATAR,172, 181, 132,8. 299,9.,9,9.8 13@ FORJ=1T04 

3@ DATAB.8:.211,9.9,8.9,162.9,08 149 POKE3SS?I+T.A 

49 DATAR, 196,0,9,0,9,0, 293. 299,133 15A MEXT 

sa DATALEr.:8.177,193,0,151:0,189:09:8 1ER Tee 

Fa DATA21S.A, 220 ıra IF TZ4ATHEN POEE 36878, DCT):T-T+i 

ra DATAIS: 11: 7,6,9,5:4,4,4,3,3,3:2,2,2,2, 19 GETAF:IFAFS> ""THEN 23a 
1:1:1:1:1:1:9,8.9,9.,9,9,9.9,0.9.9,0:8; zıa GOTO178 

a.,a,n.,M 23a A=ASCCAFI-A1 

1aa DIM N<533.1639) 24a IFAZ1 ORA>S3THENLAA 

119 FORT=1T033:PERDNCTI NEXT „ea FNKE3ES?S. NLA: POKEIESTE,NERS: 

12a FORJ=1T039:PEADDETI:NEXT T=1:60T01729 
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Das Programm zeigt Ihnen die Uhrzeit in 
Stunden, Minuten und Sekunden an. 


Commodore 


ga POKEIESES.SZ 

aA POKEISS?F, LA 

118 PRINT"M"TARCAI"T":PRINTTARCAY"DIES IST EIH DEMN- PROGRAMM" 
122 PRINTTRBCAN"MM""BITTE GEBEN SIE DIE MIHRZEIT": 

12a PRIMT" IM NHHMMSSm EINM": INPLTTIS 

14a PRIMTTABCAH"T": I=7 

159 FRINT'IRRREBBEUBEIG " 

160 PFINT'WBRBRERERRIN " 

179 I=1-1:IFI=ATHEHT=6 

ea TFTI=1THENA=8: PRINT"M":GOTO2IQ 

129 TFI=2THEHRA=S:PRINT"M":GOTO2IA 

aa IFI=3THENA=12:PRINT"M":GOTO2IA 

21R TFI=mATHENA=17FRINT"M":GOTN2R 

za TFT=STHEHA=E:PRTNT"E":GOTO2I9 

aaa TFI=ETHEHA=11:PRINT"R" 

242 TFZ=1THENPRINT'"SIORRBRARBERAM" :PPTHT'TERABEBDBREIGL" : Z=0: GOTO2SA 
241 PRIHT'TRSITMERRRRDRBRT ":PRIHT'URREEREN 1." : 7=1:GOT0258 

sa ONYALCMIDECTIE,1,19>G0T0359, 449,539, 628, 718, 898, 594, 99A,1A7RA 


27a PRIMTTABCAN" am " 540 PRINTTARIAS" am " 
sea PRIHTTABEAY"E @" S=9 PRINTTARrAN'M a" 
za PRIHMTTABEAN"e MW" EM PRINTTARCAY" FÜ 
aan PRINTTABLAY"E ®" =7a FRINTTAREAN" a" 
318 PRINTTARSAI"a @" san PRINTTAR<AY" a" 
aza PRINTTARAN"E =sa FRINTTABERY"E WM" 
239 PRINTTARLAD" ae " san FRINTTAREAY" wm " 
4a GOTN17A sia GATN17A 
zu PRINT": TFI=SORI=STHENPRIHNT gan PRINT"@"S:IFI=SNPI=&STHENFRINT 
"" MENTRTNTNTWTRTHENDEN" ; "" BOTETEDSTETSTRDSTET" ; 
3ea PRINTTARELAI" @ " Saal PRINTTARCAY"®e 2 
ara PRINTTARCRY" mw " e4m PRINTTARERY”e m " 
asa PRINTTARCAN"E W " saß PRINTTAREAY"E m " 
aan FRINTTABEAI" we" Bea PRIHTTARLAH "REM" 
aa PRINTTARCAI" @ " Era PRINTTARLAY" m" 
41m PRINTTARCAY" m" es PRINTTARCAY" mw" 
428 PRINTTARC{A>" wem" sa PRINTTARLAN"  " 
42a GOATOITR aa GOTO17O 
44m PRINT": : TFI=SORT=ETHENFRIHT 71 PRINT"S"::IFI=S0PI 
"SORTATATETNTETSTRTWI"" ; N OTaTuTnTeTetnOnTTe"" ; 
4sa PRIHTTARCAN" mm " r2A PRINTTARCAN" an" 
4eA PRINTTABEAS"E 8" aa PRINTTABLAI"R . 
ara PRINTTARCA?" = 74a PRINTTARCAY"emm " 
aaa PRINTTARERI" we" sa PRINTTARCAS" w" 
49A PRINTTARLAS" we" Tea PRINTTARBCAN" a" 
san PRINTTARBEAI"S % 77a PRINTTARBSAYTE m" 


s1@a PRINTTARER>"eReM" sa FRIHTTRRLAN" am " 
s2a GOTO1?7A zaa narntra 
30 saa PRINT": IFI=SOFRI=E 


PRINT"S"; :IFI=SSORI=SETHENPRINT 


"" BOKETNDMTWENDRTNTIN" 
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1m PRINTTARERI" ge " 

g2A PRINTTAB<RI"E @" 

830 PRINTTAB(AY"e " 

aaa PRINHTTARTAY"EER " 

aaa PRINTTARCAY"e @" 

sea PRINTTAB(R)"E @" 

g7a PRINTTAB{A>" gm " 

sea ANTNL?A 

saa PRINT"S";:IFI=SOPI=ETHEHPPINT 


KOTERTAENTTEN" ; 
a9 PRINTTRRCA)" RER" 

a PRINTTARCAY"R @" 

Aa PRIHTTABEAD" @ " 

a PRINTTABCAD" 8 " 

49 PRINTTABCAY" @ " 

SQ PRINTTAREAD" m " 

365R PRIHTTARCA" @ " 

37a GOTO17a 

389 -PRINT" 3"; : IFI=SORI=6THENPRINT 

" ORDRDRDRDEGRDKDET" 


aaa PRINTTABEAI" aa " 

19aR PRINTTAREAY"E @" 

ala PRINTTAREAN"S @" 

1a2A PRINTTARCA>" wm " 

1a2@ PRINTTAR{AY"e @" 

ta4a PRIHTTAREAD"S 8" 

1asa PRINTTABCAI" ee " 

18658 GOTO17® 

127@ PRINT"S"; :IFI=SORIT=ETHENPRINT 
"" BONDNDAENDNDSTRDIIMN"" ; 

1m88 PRINTTAB(A?" 0@ " 

1a9R PRINTTARRI'R @" 

11aA PRINTTAR(AY"e @" 

111A PEINTTARCAN" en" 

112A PRIHTTABAY" m" 

1129 PRIHTTABCAI"E @" 

1149 PRINTTARCA>" me " 

1150 GOTN178 

1184 PRINT"S": 


2 


: IFI=SSORI=6THENPRINT 


Das Programm soll eine Schreibmaschine 
ersetzen. Dazu wird ein Drucker als Peri- 
pherie benötigt. Während der Texteingabe 
Stehen sämtliche Funktionen zur Verfügung. 
die für ein fehlerloses Eingeben eines 
Textes benötigt werden. Das sind: Cursor 
vor/zurück. Delete (Backspace). Einschub 
von Buchstaben in den bestehenden Text. 
Außerdem wird ein Cursor verwendet. der 
das Zeichen. auf dem er steht. negativ 
anzeigt. Er verfügt also über alle Funk- 
tionen, die der VC 20 auch im Direktmodus 
besitzt. Wird das Programm gestartet. so 
schaltet die Hintergrundfarbe auf Schwarz 
und die Schrift auf Weiß. Außerdem wird 
der Textmodus (Groß- und Kleinbuchstaben) 
eingeschaltet. Dann fragt der Computer als 
erstes nach der Zeilenlänge. Diese Zahl 
darf nicht mehr als 80 betragen, da der 
Drucker auch nur 80 Zeichen in der Zeile 
drucken kann. 

Wurde diese Eingabe vorgenommen. sieht man 
auf dem Bildschirm eine Reihe von ebenso 
vielen Punkten wie Zeichen pro Zeile. 
Diese Punktreihe hat den Vorteil. daß man 
immer die Übersicht hat. wieviele Buchsta- 
ben man noch eingeben kann. Wird ein Buch- 
stabe eingegeben. so ertönt ein kurzes 
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ob das Zeichen auch 
Außerdem wird beim 
fünftletzten Zeichen ein Ton ausgegeben. 
der darauf aufmerksam macht. daß das Ende 
der Zeile fast erreicht ist. Wurde RETURN 
gedrückt. so wird die eingegebene Zeile 
ausgedruckt. Dabei erfolgt die Ausgabe auf 
dem Papier so. daß auf jeder Seite ein 
gleichgroßer Rand entsteht. Die Größe des 
Randes ist von der Länge der Zeile ab- 
hängig. 
Ist der Text fertig. wird als erster Buch- 
stabe ein "@" eingegeben. Anschließende 
fragt der Computer. ob der gesamte Text 
noch einmal ausgedruckt werden soll. Bei 
Eingabe von "ja" erfolgt der Ausdruck. bei 
"nein". wird in den Grafikmodus zurückge- 
schaltet und das Programm ist beendet. 
Der Auto-Brief erweist sich als gute Al- 
ternative zu einer Schreibmaschine. Als 
Zeilenlänge ist 60 zu empfehlen. da dann 
ein ausreichend breiter Heftrand von zehn 
Zeichen entsteht. 
Das Programm läuft auf jeder VC 20-Ausbau- 
version und läßt sich auch leicht auf 
andere Commodore-Computer umschreiben. 


Beep als Kontrolle. 
angenommen wurde. 


Heinz Brödner 
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i REM "AUTO-BRIEF" 

4 POKE36879, 8: PRINTCHR$CSICHRFCLSICHRFCH) 

5 VEFSCHRECIAFIH"HrHr+ AUTO-PRIEF +4+4+" 

& PRINTUE$: PRINT: INPUT"ZEILENLRENGE"SLA:IF LASI OR LA>SQ THEN 6 

? DIMDECSO) 

S POKE36878,15 

9 YE=CHRECIII+CHRFCII+HCHRECITI+CHRECLY) 

18 PRINTUE$:FOR I=1 TO LA:T$=TF+".":NEXT 

15 GOTO 35 

28 GET At:IF A$=""THEN 29 

21 K=ASCCA$) 

22 IF PS=LA-5 THEN POKE 36874,158:FOR T=1 TO 289:NEXT:POKE36874,B0 
23 IF #=13 THEN 998 

24 IF PS=8 AND #=654 THEN 699 

25 IF %=28 THEN GOSUR Sa: T$=LEFTSCTF,PS-1I+RIGHTSCTF,LA-PSI+".":PS=PS-1:00T0 35 
26 IF #=148 THEN T$=LEFTECTE,PSI+". "+MIDECT$,PS+L,LA-PS-19:G0T035 
2? IF %=137 THEN PS=PS-1:60T0 35 

28 IF x=29 THEN PS=PS+1:G0T0 35 

3a IF XC32 OR #395 ANDX(193 OR %>218 THEN 28 

31 GOSUB 399: TE=LEFTSCTE,PSIHAS+RIGHTSCT$, LA-PS-13:PS=PS+1 

35 GOSUB 598:PRINT YETE"+":PRINT V$ TABCPSICHRFCISIMIDFCTS,PS+1,1) 
36 IF PS=LA-5 THEN 58 

429 POKE 36876,29@:FOR T=1 TO S:NEXT:POKE 36876.8 

sa GOTD 28 

saß REM LRENGEI ? 

si@ IF PS<Q THEN PS=8 

s28 IF PS>LA-1 THEN PS=LA-1 

30 RETURN 

s5Q REM LRENGEZ2 ? 

s68 IF PS<1 THEN PS=1 

S7a. IF PSPLA THEN PS=LA 

30 RETURN 

688 PRINTIES:PRINT:PRINT"GESAMTEN TEXT NOCHMALS AUSDRUCKEN 7? CJ/ND" 
61a GETRF 

6159 IF A$="N" THEN PRINT CHRSCIAFICHRECHICHRECIAI: "END 

628 IF A$="J"THEN 638 

625 GOTO 618 

638 OPEN1,4:FOR I=9 TO S:PRINT#1,D$CIY:NEXT:CLOSEI 

648 GNTD 698 

sa@ PRINT YET$ 

805 DICSI=LEFTFCT$,PS+1) 

829 OPEN 1,4:PRINT#1,D$FCS>:CLOSE1 

3a TF="":PS=9:5=5+1:G0TO 18 


Das Merge-Programm ermöglicht es. mehrere Die Variable A in der Zeile "1i0"enthält 
Teilprogramme unterschiedlicher Zeilennum- den niedrigsten Speicherwert des RAM An- 
mern und in aufsteigender Reihenfolge in wenderspeichers. Bei einem VC 20 mit 3K 
den Speicher zu laden. Speichererweiterung muß dieser Wert auf 
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1024 heruntergesetzt werden. Nach dem 
Starten mit "RUN" wird gefragt. welches 
die letzte zu schützende Zeile ist. Hier 
gibt man die letzte Zeile des Programmes 


ein. das bereits innerhalb des Speichers 
steht. Beim ersten Durchlauf ist dies also 
"50". da zuerst einmal das Merge-Programm 
geschützt werden muß. Jetzt arbeitet sich 
das Programm durch den Speicher. Erscheint 
nach kurzer Zeit "Zeile nicht vorhanden". 
so muß nochmal nachkontrolliert werden, ob 
es die eingegebene Zeilennummer überhaupt 


gibt. Erscheint "OK!", ist das Merge- 
Programm verschwunden und das nächste 
Programm kann geladen werden. Nun wird im 
Direkt-Modus eingegeben: 

Poke 43.1:Poke 44.16 

Danach erscheint durch "LIST" das eben 


geladene Programm und das Merge-Programm. 
Jetzt kann das Ganze wiederholt werden und 
so nach und nach alles in den Speicher 
geladen werden. Zu beachten ist dabei fol- 
gendes: 

Immer in aufsteigender Reihenfolge der 
Zeilennummern laden und Poke 43,1:Poke 
44,16 nicht vergessen! Danach das Programm 
wieder mit "RUN" starten. 

Die Programmbeschreibung im Detail: 

Zeile 20: Beim Eingeben dieser Zeile muß 
man alle Peek-Befehle mit P (Shift)E abge- 
kürzt eingeben, da sonst der BASIC-Input- 


Puffer mit maximal 88 Zeichen überschrit- 
ten wird. 

Die Variable X enthält jeweils das letzte 
B REM "MERGE" 


18 A=4896: INPUT"LETZTE ZEILE"; B 


Byte der vorhergehenden Befehlszeile und 
das erste Element der darauffolgenden 
Zeile. Hier wird später überprüft. ob das 
Programmende erreicht wurde. das mit zwei 
Null-Bytes gekennzeichnet ist. Mit der 
Variablen Y wird die Programmzeile ge- 
sucht. die in 0 eingegeben wurde. Dabei 
das Format. in welchem der 
Interpreter die Zeilen ablegt. 
gemacht. Zeilennummern werden hier als 
Low- und High-Adresse abgelegt. So bedeu- 
tet zum Beispiel 10/1: 10+1 x 256 = 266. 
Mit den Variablen z1 und z2 wird der Be- 
ginn der nachfolgenden Zeile gespeichert 
und später als neuer A-Wert übernommen. 
Zeile 30: Wenn Y (enthält die Zeilennun- 
mer) gleich B (der eingegebenen Zahl aus 
0) ist. wird "OK!" ausgegeben und der 
Zeiger für den niedrigsten Speicherwert 
auf den Wert nach dieser letzten Zeile 
gestellt. Versucht man jetzt "LIST". so 
ist das Programm verschwunden und taucht 
erst durch Poke 43.1:Poke 44.16 wieder 
auf. 


Zeile 40: Wenn X (enthält den Wert. in 
welchem der Wert überprüft wird. ob das 
Programmende erreicht wurde) gleich O ist. 
wird die Zeile als nicht vorhanden ausge- 
geben und das Programm abgebrochen. 


zunutze 


Zeile 50: verzweigt nach allen Prüfungen 
wieder nach "20". wo mit dem neuen A-Wert 
weitergearbeitet wird. 


Andreas Fielitz 


28 K=PEEKCA)+PEEKCA+1IN2SG: YaPEEKCA+3) +PEEKCA+4)R256 : ZIEPEEKCA+1) : Z2=PEEKCA+2): A 


=Z1+22W256-1 


38 IF Y=B THEN PRINT" DK | ":POKE 43,21:FOKE 44, 22:END 
48 IF %=8 THEN PRINT "ZEILE NICHT GEFUNDEN" END 


sa G0TO 28 


In Ermangelung eines eingebauten Maschi - 
nensprache-Monitors wie bei den "Großen" 
von Commodore enstand dieses BASIC-Pro- 
gramm. 

62 


Es hat folgende Funktionen: 

List 

1. Eingabe des Speicherraumes. 
stet werden soll 


der geli- 
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2. Eingabe. ob der Speicherauszug hexade- Inhalt der Speicherstellen hexadezimal 
zimal oder dezimal gelistet werden soll oder dezimal eingegeben werden soll. Nun 
Dann folgt eine Liste des betreffenden wird die Größe des Speicherinhaltes gefor- 


Speicherinhaltes. ähnlich wie beim "M"- dert und dann der Inhalt der Speicher- 
Befehl des Maschinenmonitors im CBM. zellen eingegeben. 
Poke Change 


1. Eingabe. ob nur eine einzelne Speicher- Diese kleine Routine rechnet dezimale 
stelle oder mehrere hintereinanderfolgende Werte in hexadezimale und hexadezimale in 
Speicherstellen korrigiert werden sol- dezimale um. 

len. (Literaturquellen: Zeilen 1000 bis 1805 
2. Wenn "EINZELN" gewählt wurde. dann wird aus mc 12/82 "Wie man in Basic mit Binär- 
nun die betreffende Speicherstelle ein- zahlen umgeht" von Peter Wollschläger) 
gegeben und der Inhalt wird sowohl dezimal 

als auch hexadezimal angezeigt. Nun wird Load und Save Funktion. 

der neue Inhalt dezimal eingegeben. 

3. Wenn "MEHRFACH" genommen wurde. muß 

zuerst eingegeben werden. ob der neue Timo Kissel 


Me=" 34" :FORI=1T022:M£=M$+" "NEXT MEEMEH TS 

D22=-" IMOR. 899 al aa2 aaa w'+Mt 

Dis" EMIR. DA AI m a3 3A W4HMEME="" 
POKE36879, 11: PRINT"I4"; 

1@ PRINT"BEFEHLE: 

12 PRINT" AWST, SPREE. CHE, RE, LINBAD, SEE" 

15 INPUT"MWBEFEHL ";R$ 

15 IFRE=""THENPRIHT"TI;:GOTO15 

17 IFB£="D"THENGOSLIRSAR: GOTRS 

18 IFB$="S"THENGOSLIB?9Q@:GOTOS 

2a IFBE="L"THENGOSUBIAA:GOTOS 

21 IFB&="H"THENGOSUR499 :GOTOS 

4 IFB$="P"THENGNSLUBZAR:GOTOS 

s IFB£="#"THENEND 

& FRINT"TI'::GOTD15 

AB PRINT"ZLIST 

195 INPUT"VON. BIS (DEZ>"IV,B 

187 INPUT"MHREN 7 SDBEZ "13% 

128 IFISCH"H"ANDIFCI"D"THEHPRINT"TT::GOTO197 

193 IFI£="D"THENISO 

11A PRINTDIF:FORI=VTOB: Z=I-V: IFZ/SOCHINTCZ/SRIORZ=ATHENIILS 
111 GETWE: IFNF=""THENIII 

112 PRINTDIE 

115 IFZ/S=INTC2/’S> THEND=T : GOSLIB1BOB: PRINT: PRINT" MHS"T 4"; 
128 DePEEKtTD:GOSUBLARR:HF=RIGHTSCHE, 23 :PRINTHE" "; 

125 NEXT 

139 GETWE: IFU$=""THEN3Q 

133 RETURN 

15a PRINTD2F:FORI=VTOR'Z=I-V: IFZ/EBC>INTEZ/SAIORZ=ATHENSS 
151 GETWE:IFUF=""THENISI 

152 FRINTDZ$ 

159 IFZ/4=INTCZ/4>THEND=T: GOSUB1SRQ:PRINT:PRINT"W'DE" 9" ; 
15@ D=PEEKCTID:GOSLUB1LSQ9:PRINT"W"D$; 

163 NEXT 

ira GETUE: IFN$=""THENI3O 

173 RETURN 

2ad PRINT"TLORREGT 

282 INPUT" MSERINZELN/ SMEEHRFACH" ;S$ 


LPs Bu Ce Er 


nn 
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203 IFS$Z>"E"ANDSFCH"M"THENPRINT"TT; =48 RETURN 
:GATN2R2 zsa IHPUT"MEZ.=":D:GOSUB2SAA 
2a4 IFS$="M"THEN2SR =&0 FRINT"WEIN="BNE 
285 IHMPUT"SSPEICHERSTELLE £DEZI";S =79 GETUE: IFUE=""THENSTO 
21A S1=PEEKLS}: PRINT" WBISINHALTE" =s@ RETURN 
211 FRINT"DEZIMAL:"S1 gan FRINT"TLOAD 
212 D=S1:GOSUB1AAB:PRINT"HEX gas IHPUT"MIHAME=";N$ 
© "BIGHTECHF. ZI" " 51 DPENI:1,B,NE 
21= INPLT"WNELIER INHALT=";$2 E29 INFUT#1,A:INPUT#HL.E 
ea POKES,S2 s3a FORI=SATOE: INPUT#1.K:PRINTT; 
22 FRINT"RÜK. “:POKEI:#:NEXT 
227 GETUFE: IFUE=""THEN22T ega LLOSEI 
238 RETURH g=@ RETURN 
2=d IHPUT"MHBEER/ IDEE" SE raa PRIHT"TEAYE 
sel IFSFLI"H"ANDSFC>"D"THENZSA 785 INPUT" MENAME="; NE 
2=2 TMPUT"WON. BIS!"5W,BEPRINT"M" 7a? INPUT"WON,BIS"IAGE 
:FORI=YTOB rıam QPEN1,1:1:HF 
ass PRIMTI.: INPUT"IERIHHALT" SIE 728 PRINT#1:A:PRINT#1.E 
257? 1FS$="D"THENPNKEI, VYALCSIF) raa FORI=ATDE:#=PEEKCID:PRINT#L, 
zag IFS$="H"THENHE=S1F:GOSUBLI1OA:POKEI:D #:PRIMTI.X:NEXT 
DEM HEXT r4a CLOSEI 
2655 PRINT"IIDDK." 5a RETURM 
266 BETWE:IFHR=""THENDGE 1aaa B=INT(D/256):G05UB1R1O 
>79 RETLURH 1201 K$=Hf 
4aa PRINT"TICHANGE 1802 B=D-B#256 :GNSUR1A1O:HF=X&+HF:'RETURN 
41a INPUT" MHREX-TEZ/ADBEZ-HEX/EBRIN" UF 121@ L=BAND1S:H=CBAND2497 7/16 
4153 IFUE<CH"H"ANDHFZ>"D"ANDUFCI"R" ı1m11 IFHFSTHENH=H+5S:G0T01013 
THEHPRINT""TI";:GOTO41Q 1812 H=H+48 
420 IFu&="H"THEN4S2 1813 IFL>9THENL=L+55:G0T01015 
422 IFWUE£="B"THENSRR 1814 L=L+48 
438 INPUT"MMEZIMAL=";D:G0SUB1AAR 1213 HESCHRECHI+HCHRECL5:RETURH 
: PRINT" MIHEX="H$ 1109 L=LENTHFI:D=R 
435 GETUE: IFWE="" THEN43S 1181 FORG=1TOL:A=ASCCMIDECHE,G,1)) 
437 RETURN 11082 IFA>S4THENA=A-55:60T011A4 
45a INPUT" MIEHER=" HF: GOSUB11AA 1103 A=A-48 
472 PRINT'"MAMEZIMAL="TD 1104 D=D+A#16tXL-65 :NEXT'RETURH 
475 GETUE:IFHE=""THENMTS 1599 DE=-STRECDI:DF=PIGHTFCDE.LEN{DEI-1) 
477 RETURN 1505 DF="BRAAA"+DE:DE=SRIGHTFCDE, 53 RETURN 
Sam FRINT"TIBINAER-UMHANDLUNGM ısaA DE=STRECDI:DESRIGHTFCDE,LENCDEI-1) 
si INPUT" SBMIN-DEZ 7 MMEZ-BIH ":W$ 1505 DE="ARA"+DE:DESRIGHTEENF: 33: FETURH 
z2A IFWECH"B"ANDNES>"D"THENS1A zaaa L=LEN{BNFI:N=N 
23a IFU2="D"THENSSR za FORIT=1TOL:A=YALCMIDECRNS. I, 159 
aaa IMPUT"MRINAER=" BH&:GOSLUB2AOR 2028 D=D+AKZtCL-T> NEXT: FETURN 
4a FRINTTRDEZ.="D zsaa BHF="":FORIS?TOASTER-1 
545 GETWE: IFUE=""THENS4S 2519 BNE=BNF+MIDFCSTRECSGNCDAND2 TIP, 2:19 


'NEXT:FETLFN 
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Das Programm hilft bei der Verwaltung 


Ihrer Termine. 


Nach der Eingabe von "?" erhalten Sie eine 
Eingabe-Hilfe. 

Mit der f1-Taste können alle Eingabefelder 
gelöscht werden. Mit der *-Taste springen 
Sie ein Feld zurück. 


RUN 


Hiermit werden die Termine. die beim 


letzten Lauf abgespeichert wurden. wieder 
eingelesen. 

SEARCH 

Nach der Eingabe des gesuchten Datums 
werden alle Termine für diesen Tag am 


Bildschirm angezeigt. Auf Wunsch kann auch 


eine Hardcopy des Bildschirms erstellt 
werden. 

CODE-DUMP 

Jeder Termin kann mit einem Code versehen 


werden. Hierdurch lassen sich anschließend 
alle Termine durch diesen Code wiederfin- 
den. (zum Beispiel alle Geburtstage). 

A REM IMITIALISIERUHNG 
I PRINT" :PIIKESEST?9.S!CLR 

> NIMSFC2SA) 

ıam REM MASKFE-MEHLIELAHL 
135 DRTUTIMETTeN 


FORA=1TM?I:PRIHTIEN: 

172A PRTNTTAPFAS"ET CL Py" 

5 NL RU N A Ru 

MFANGPAMM-SELECTIDM:" 
' 


"NEYTSPRINT 


HELPSPIRRRTSRRRTEM ; 


BR Te 
1 NETTE: IFTE=NNTUEHTEN 


m PRINTTE;:FNRA=1 TIMER: HEMT 

17a TFTE="ENTHEHNPRIHTIEOTANTAGA 
TETE="RNTHENFRTNT:GOATILAAAM 

|; TETE="SHTHENPRINT:GOTOTARO 

IFTE="E"THENPRIHTGOTMIaMAR 
IFTE="FITHENPRINT:GOTIL SEA 
era IFTE=S"A"THENPRIHT:GOTO2BBAA 
234 IFTE="D"THENPRIHNT:GATI2FRORO 
24a IFTE="T"THEMPRINT!N 
TFTE="?NTHENPRTIMNT: 
=? PETIMTUEE EN: 
Ran BEM 

ıa1A FRINT"’IM 

1a2@ PRINT"MERLUN:  "; 


enTnanana 
{anrniea 

START 
RitH " 
:1=1:G02UBEARAR 


Eine Publikation von CHIP 


FIND 
Termine 
wenn Sie einen Teil des Textes kennen (zum 
Beispiel Arzt) 


lassen sich auch wiederfinden. 


ALTER 

Hiermit können bereits erfaßte Termine 
geändert werden. 

DELETE 

Diese Funktion dient dem Löschen von Ter- 
minen. Wichtig ist die Löschung von ver- 


strichenen Terminen,um die Leistungsfähig- 
keit des Rechners zu sichern. 

INSERT 

Neue Termine werden nicht chronologisch 
einsortiert. sondern nur an die bestehen- 
den Daten angehängt. 


END 
Bei Aufrufen dieser Funktion werden alle 
Daten gesichert. Dazu ruft der TERMIN- 
PROZESSROR das Unterprogramm "SORT-SYS" 
auf. das alle Termine chronologisch sor- 


tiert und abspeichert. E.Saller 


1925 IFr2="#2"THEN1AO 

1m2a S=UALLWZFN:MM=S 

1935 IFSCPLAHDSCHETHEN BAR 

104m TFS=1THEHNPEHI 1:2," T-SWS" 


1asa 
18ER 
1A 
1975 


TFO=ATHENDPEN! »8; 4, "T-895,5;R" 
ENPA-ATND® 

Re=ST: IFRSORTIENI22E 
TFA>2SATHENER=4 :G0TN4Saan 

1922 INPUTFL,SELA) 

12a HEYTA 

1219 ER=1:CLOSEI SOTOASARR 

1229 CLOSE 

1239 GOTOLAR 

Sana REM 

zala PEINTIIM N AU — 
EA>DA BATHTIOENA : ai « . 
Sa? TFWOE-"ETHENLAD 
=m4R DeYALCH2E):PRINT"T" 
SasA FORA=ATOFER 

SasS IFSELA)=""THENSIEN 
SneUBSSAna 
TFUALCDEICHDTHENNEXT :GOSURGFAAR: 


SAER 
s1aa 
PRINTUEDE: " ngn np$, TEL: 77-774 
Te ETHENMMELREAAAA : 77-0 anTn=tan 
HATTE 


21a 
Bir 
Si 
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130 TFTE="TITHENPRINT"N"NEXTGOSUBGSANd: SA14M PRINT" RENODEDDNMEN Ev 
soTo1aR INSERFENFFFFRER!"; 

{49 IFTS="NH"THEN1AR satz RETTE:TETE="NTHENSAISA 

S16A NEXT: GOSLURESAAA:OTOLAR mem TFYALCTEILLORVALLTEIPATHENDA1SA 

{man REM CNDE-ANZEIGE  2A17@ PRINTTS:PRINT"?: "; 

Lama PRINT'IS CODE - FIND 20139 ONYALLTEIGHTISADAA, 2A2MA. Daaan,2asan 

1aRzm PRINTIMINDE: ©: =D: EnaLBEAMEM 2A19M ER=2:G0TOASAA 

aaa TEYOG-UFTHENTAR 29200 Yi=6:GOSLBERADR 

1gaaa Oval vos) PRINTIT" 2a21a IFY2E="X"THEN29300 

1aasa FORA=ATI2TA 2a220 DE=Vas: GnTaamaan 

10955 IFS$CA)=""THENLO140 20a 71=4:HOSLBEAARR 

1gaca OSLBSSADR 2ar1a IFV2E="FTHEHSIRNG 

1m979 TFVALLTEISDCTHENLALAR SA22M LIE=W2$: ANTNIASaA 


1aRaR SETHTTWIDE" gen Nn$ TES'ZZ=7243  DAAAA YI=2:GOSLBEAAAA 
vansa IFZZ>1STHENGOSUIBGSRAA:ZZ-A:CITOIAtIO DMa1a IFFOF="E"THENDDEAR 


man GATTLmldn 2ag2n CH=28: GATD2AFAM 

mia IFTE=" TTTUENPRTUTUTGSATOIALAR zezaa "1=29:G0SLRERAAA 

ma TFTE="NTTHENIAN 2as1a IFY2="R" THENZASBA 

1mlar MEXTIAASLMREIAAA:GOTILAA 2a729 TEF=72E: GOTNZASAR 

SoaR REM TEFT-SUCHLAUF — 2asam SELAI=DE+HIEHTELHCE: GOTD2ZADEM 

a TERINTINF JN DS ER BGH 2asaa MEKTA: GNSLUBSZRAA:ANTAIAA 

sa2a PRINT'MEITEXT: "5:71=1A:G0SLBERAAA 25a REM LDESCHEN 
sad IFY2E="E"THEHLOM zaaas ORTNTITIE BELLE TE N 


15940 Tit=W2E 25013 PRINT" = BIS DATUM" 

1sasa TFRICHTELTIE.II-" "THEHTIESLFFTECTIE. 22a PRINT'ME = FIN EINTRAG" 
EMCTIEA-13:607015254 aaa ERINTIWERBRKEN: "5:41=1:G0SLBERAAA 

1a Hi=LEN-TIES PRINT" IFHLSLTHENAI=1 aaa TFY2t="%"THENIOA 


1zm70 FORI=ATNZSA aaa IFrzZE=""THEN2S10O 
13975 IFSFEA,)=""THEH1SIIO zeasa IFVDE=" DI THENDSEAN 
sera Sera zEATA GOATOFEAAA 
aaa FNRA1=1TOZA-H1+1 21a PRIMTYTTEIERTEHT: NAT: "; 
mtan TFMIDELTEL,AL.HLI=TIFTHENM=1:A1=20 SR: ENSURSAAAA 
1=11A NEXTAI zei1m TEYDERNENTHEHTEAAM 
15129 TFM=ATHEN1S1SA zet2m DEVALLTOEN 
12125 M=6 25139 FORA=ATNESA 
15122 PRINTIWENnE;" en ce, TEF:72=77+23 251359 IFSECAI="" THENPSLAR 
"m14R TFFFSISTHENGOSLBEAAAA!ZZEAGOTOISISA Fan SHELBESAAM 
15129 SATOISLSA Per TEMALCDEISDTHENDSLAA 
1a1ea IFTE=" I" THENPRINT" I: SOTO1S1S0 Farm FORB=ATN2E9 
1s1ra TFETES"HITUEHIAA za? SELBI=SElBHI) 
15128 HEKTA:GOSURSAAAA:GOTOLAR 2518 NEXTB 
zeang REM REHDERN 25187 FECZam="" 
zama PRIMT"TM CHANGE M Fear NEUTA:GNTNIAA 
za PRTNTIEBTAR: "re NEL BEAAAA Fan e: 
aaa TETIDES" HT THEHTAN 
2RRAA Deal trag SEmIA TEYUDE-NENTHENZTRAR 
FaRsa FORA=ATN2SA ega1s SiF=r2t 
Sara TFSECA)=""THENDASAA sza2a PEIMT'MER ZEIT: "5: H1=4:GNSUBERAAM 
ZageEA GOSLIBSSAAA zzara TFYOESUEN THEMA 
zameS TFWALLEDEICHNTHENDAAAR FEAR IESSLEHTIE 
aaa FRINT"TIM DATUM: "DE aema FORASATIZGR 
zansa PRINT'M2 ZEIT: "UF za TFLEFTEESECAS, LOI=SSIETHENZSEAA 
sans FRINT"M CODE: "CH 2SS7A MEXTR:GOTDPSAAR 
aaa PRIMT"M4 TEXT: ",.TEE Saga FNER=SATN?AI 
Fa11R PRTHT SET PATMENTRTRTETETETATSTSTNTENHANGE, TERIM SErRI=SErBHt) 

A Far HEXTR 
za129 GETTE:IFTECH" TTANNTE>"H"THENZAL2A gusaa SELLER" 
PR TETE="M"THEHDASAA FEraa ENTNSTATA 


66 Commodore VC-20 Programme 


nam 
aaaası 
aaa 
aaa2a 
angos 
22020 
ein ioahe 
anasa 
BaaeR 
aaara 
22030 
aaasa 
An am 
aatim 
29129 
aa 3a 
aaa 
amı am 
anıza 


nalen 
aa? 
39129 
Elalale) 
SEAaE 
aaa 
FSa2R 
azama 
aaa 
aanme 
aaa 
saap 
En lulojelt) 
4mıam 
alaluln) 
4519 
aza2a 
arana 
smda 
45950 
araen 
ama?a 
45aaa 
aaa 
aetan 
Ebel 
45155 
aan 
45178 
ga1gA 
ara 
4.ana 
gem 
Ara 


an PEM 


a1 A 
az 
ale 


REM 

PRINT"71@ NZZ 
PRINTIMMATUM: ";: 
TFr2£="#"THENOR 
Ds=Y28 
PRINTREIT: "5 :W1=4!5N8 
TFWIE=N EN TUENFAAAA 

LE=UIE 
ERTNT"IENDE: r 
IFr2£="*#" THENZDAAO 
C$='72$ 

PRINT"MTEXT: ":71= 
TF2E="E" THENSOAAA 
TEL=V2FE 
FRIMT" ERM" :GOSUBSZOAR 
IFTE="N"THENSRAARM 

=N 

FnRe=arnasa 
TFSECAYRUNTUENSELMINEHIEHTERADE:A= 
25A:M=1 

NEXT 
IFM=1THENSanaR 
ER=1:GNTN45A2 
REM 

PRINT" 
ELNSEL:CLOASE4 


HTNZUFLIEGEN 


";:yj=2 


:GASUIBEAADR 


2a: GOSUBEAAER 


EHME 


LAAB"SORT-SHFSN MM 
REM 
PRINT" SRETATANKTTETETIEN 
PRINT" SIBCTDE-DUMP 
PRINT" AR_TER 
PRINT"  SIMHSERT 
SOTNI4M 

REM 

PRINT" 

FE T KIT " RTeTaTn n 
FNRR=1TN22:PRIHT"#"5 :MEXT:PRINT 
PRINT" RIM" 

IFER=1THENPRINT"AT AFP MEMARY" 
TFER=ZTHENPRINT"STHTAM ERROR" 
IFER=3THENPRINT"SAL ERROR "A 
IFER=4THENPRINT"REAN ERPOR" 
IFER=STHENPRINT"DEVTICE HOT PRECENT" 
[ei] N; NT tı ul all) 

FNRR=1TN22: PRINT"#"; :NEXT:PRINT 
PETMTRIE" 

GOSLIRSZAAO 

IFTF="H"THENSSTEAA 

sormiea 

rEM LP CPRUEFEN SATZ) 
IFS£CAI=""THEMRETURN 
TFLENCSELCANICHIZTHENERS2 GATNASAAR 
RETIRH 


HELP 
PRNKEERRCH" 
FEIND" 
MEELETE" 
EN" 


EPRnP 


UP (SATZ. -F’FEERERD 
DE=LEFTECSECAN) 6) 

NESMINELTELA).?,4) 

TEL=MINELSECA). 11,20) 


Eine Publikation von CHIP 


a4 


Organisation/Programmierung 


FE=MIDErSEcA). 31,29 
ENSUR4ERAN: RETURN 
REM 

Vogel ENPYA=ITNWI 


IP LETHEABEN 


2 PRTMTUSET SEEN; 


PA NEHT 
39 FORTASITOTT 


sansa 
Egasa 
Kaara 
saaaa 
zaasa 
sayan 
saııa 
Sullel:) 
sa aa 
entan 
zay=a 
garen 
29179 
Kat?ı 
sat?2 


“R173 
59174 
galaa 


a1 2a 
sapan 
so219 
20228 
50239 
Ea24n 
eADSR 
sa26a 
sa27a 
©2238 
KRIAN 
saraa 
eiaan 
gıata 
1020 


Ara 
Eimda 


a IFCSSIR1 YELB3CGA)THENGL1OR 
3-92 


3 PRINT"; 


NEXT 

FORWA=1 TC 

SOSURSA1 TR 
IFY3E="X"THENEN240 
TFASCCY3$)=13THENGA13A 
IFASCCY3£)=133THENEO2AR 
VagaWog+Y ag | 

HET 

FOPYA=LENWORATONT 
Vog=Wag+" "POINT" "; 

NEXT 'VOS=LEFTELYOE, U) 
PPINT:RETURN 

GETY3F: IFV3E=""THENGA1TO 
VESASCtY2E) 
IFYS=17ORYS= 1 SORYSSZIORYTELASORYST- 
1480RYS=1470RYS=1STHENEA17A 
IFWS=29ANDW4> THEHEADAR 
TFYE=2OTHENEA1 70 
TEWRECNETANNWSCHLIAHNUS/ 
NARTHENPRINTWSS; 

BETUBN 
TFLENCHOFI=ATHENGADDR 
FORY4=1TOLENCY2$) 
PRINTUM"; 

NEXT :ENTIBAARA 
FORYA=LENLWAEITOVI 
WOg=WOR:PRINT" "; 

NEXT 

PRINT: Y2$="%" : RETURN 


‚MES=LEFTELIDE LENCHZEI-1N 


PRINT" IT: W404] 
EATIEA1?R 

REM 

G1E=CHREL1T) 
GPEN4.4: PRTHT#A'GI=4ETPEEK 36866) 
ANDI2SI +64 CPEEK.CISBEA)ANDI2R7-22 
FORGE=ATNZ22: GA$=G1F'01=61+22 
FORG2=G1T061+21:G3=PFEK(62) 
IFG3>128THENGS=024+64:G0TOEL AR 


UP CHARDENPY) 


a TFERINAIECRILIDI THENGI=GIHEM: 


sarne1 tag 


IFLEIPEHKGILSEN TNENG 
FOTNELIAA 
IEER>2IIELG3ZL2SI THENGS 
GOTDELLAR 


95 ] 
u 
Der 
) 
+ 
1 
2 


a GAE=GAF+CHRE GI) 
| IFG4=1 THENGAF=GAF+CHRELC1AEI: GA=D 


NEXTG2:PRTHTHA, GA: NEMTER 


aA PRINTHA:TINREA 
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A11Ar PETURM FAAAE PRTHTIMAIETTER Tarp" 
szaga REM UP CK T/N E3919 BETTE:TFTE=""THENSaAIA 

s2m1a FRINT"ISUETTER - sam2a TFTE=" PTORTE="N"THENRETURN 
F2mtS GETTE:IFTECH" TTANDTECH"N" THENG2ALS 63029 IFTF="P"THENGOSUBE LARA" RETURN 
raa2a RETIRM saaza ANTssagia 

samaa REM. UP OK THzPN 


Das Programm zeigt zu Beginn auf dem ebenfalls vergrößert wiedergegeben werden. 
Bildschirm sämtliche Buchstaben. Ziffern 

und Sonderzeichen des VC 20 vergrößert an. Commodore 

Anschließend können diese über Tastatur 


1 PRINT" TIMIMITeTmn 

2 FORI=ATN127:POKETEBA+1.1:POKE3S4AA+1.6:NEXT'REM BEI SK ANDERE ADRESSEN 1924 UM 
n 37888 

19 POKE3ESSET,2 

bet en PEM BREI SK 205 

2a FORI-ATIIADA 

3a R=-PEEKLA2FES+T) 

K=1%2 

PIKES12A+K.R 

POKES121+K,R 

NEXT 

PRINT"BITTE SCHREIBEN SIE NUM AUF DEN BILDSCHIPM" 
GETRE: TFA&=""THEN?A 

FRINTRE; 

IFAF=CHRECSBITHENPRINT" BEN"; 

85 IFFEEKC214)>=12THENPR INT" MMDDMIEDMEEN" ; : GNSLIRLAFIA 
aa ANTN?A 

1m END 

1aaR PRINT""TTITTTITIIT; 

1aiA RETURN 


Be 
A 


DAN IMER 
ADDED L 


Verwalten Sie Ihre Ein- und Ausgaben. Die Finanzverwaltung besteht aus drei 
Alle Eingabefelder können mit der fi-Taste Programmen: Eingabe. Monat und Jahr. 
gelöscht werden. Mit der *-Taste springen 

Sie ein Feld zurück. 

Paßwort für alle Programme ist "FIBU". EINGABE 

Dieses Paßwort können Sie aber leicht Hiermit werden die Daten für die nn 
ändern. Auswertungen erfaßt. 
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MONAT: 2 stellige Monatsangabe 
zum Beispiel: 01 
1 bis 14 sind Ausgaben 
15 bis 19 sind Einnahmen 
Die Bezeichnungen dieser Gruppe 
können leicht geändert werden. 


CODE: 


MONAT und JAHR 
Diese beiden Programme dienen zum Erstel- 


EINGABE 


a Gnsupaname 

5 DIMAECLDI:SPRINT"T 

FORA=1T019 

READAEA) 

NEXT 

CLOSE1 :FOKE2ERTS, 26 PPINTIMEN 

INPEHI 2.15 

za PRINT" NATEH - FRFASSUNG" 

ER PRTNTTEMOHAT : "5 :Y1=2:R0SLIR42A 

72 Maya tWOE) 

78 TFWOESNENTHENSO 

32 IFM=SITHENPRINTUTM N Mert 
:PLASE2CLASER:END 

R TEMANRMSLOTHENSA 

am PRINTTMECNDE : 

a5 TFFag=""THENSA 

11M C=VaLtW2E) 

12a TFREINRCHLSTHENPRINTITTTI ONTOIanM 

198 DETKTUR: TI SPRINTAFCE) 

129 PRINTISETEHT © ";191=12:G02UB430 


n 


EN u 
[3 Bu eN Ban Zen 


",:171=2:GOSUR43A 


13a IFYes="#"THENPRINTUTTTITTTITT O0 

14m TE=TZE 

1a PRIMTIENATLM : "5:7 ]=6: GOSLB4IA 

15% IFF2E="#"THENPRINT"TTITT :GOTO120 


168 NeVALCWIEH 
179 PRINT"IEBETRAG: "::Yf= 


ma BeyAL enaey Ten- ATHENPRINTFTTI" :GOTD17R 
aa PRINT"MERIIN ORDNUNG T/HM" 
zaa GETIE: TRUE" TUENOMM 

21a TFUESH"TTTHENAA 

zer TIE="MONAT "+STRECMN 

aaa DAt="TLODE "+STRECC) 

24a NiF=Dis+",S.R" 

zam N2E-D2E4" 5." 

RR PIALRERA 

ara MPEN?.F,A.TIE 

2er PRINTE2,STRELTY:CHPELITI: 
aSR PEINTE?,TEICHFELL2: 

aaa PRINTE2.STRECDI:CHRE£LLFD: 
1a PRINT#2,STRECB):CHRFCI2N: 
a2 EINSFE 

aaa GOELIBSEM 

Ada NPFH3.3,5,02# 

aaa PRINT#F3,STRECMISCHRECLIN: 
aeA PRINT#3,TEICHRELLID: 


Eine Publikation von CHIP 


Organisation/Programmierung 


len umfangreicher Statistiken und Auswer- 
tungen. 


sind die 
Erst- 


Vor dem Starten der Programme 
Monats- und Code-Konten mit dem 
Anlage-Programm anzulegen. 


E.Saller 


ara PRINT#3.STFREITM:CHREE12N: 

aan PRIMTE2,STREORNICHPEEIADN: 

aaa TINSER 

gar GNSLURSEN 

arm HOISIIRERA 

a2m CONTI 

Ama PRINT am; 

4ER MERT 

gem FORFA=ITITI 

ara PRINT": 

RA NET 

aaa FORYI=L TI 

casugara 

SAs IFF3t="#" THENSSI 

sim IFASCCEFIEI=L3THENSSA 

s2An IFASCETIEI=IATTHENEIA 

an VOL-UDEHUNE 

=4n HEYT 

zen FNPWA=| EHFDEITNT 

BEA MPIEzWOE:ERTHT" "! 

Era HFXT 

=aa PRTHT:RETUFRMN 

sam SETTIE:IFTIF=""THENSS 

san IFFaEL "ENannAaarr ne en, 
LFRHNASCOHIFICHL3IITHENFRINTFSE 

r19 BETLURN 

s2a TFLENZUSESATHEHAIA 

era FORWESITILEHEMIEN 


g4R PRINT": 

550 HEXT:GOTOASM 

eat FORTASLENYERSTOTT 

Az Vat=W2E PRINT" "; 

#23 NEXT 

Bad PRIHT:V2E="#" RETURN 
KeAR TMRUT#L.EH,EME,ETIES 
72 TFEN=ATHENRETURN 

ssaA PRINT" #4 ERRAR ak" 


Bar PEINTUMMNDE:",EM 

aA PRINT"ME" EMS 

rıa FRINTTMT + S 

220 END 

aa DATA"SPARVERTR." . "BLECHER" "ABGABEN", 
"ED" "BILDUNG" "ALISGEHEN" 

aa NATE"GESCHENKE". "ARDNNEMENTS" 

"ESSEN+TRINKEN" . "LOTTERIE" "KLEIDUNG" 


"ET," Bee 
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ea DATA"NICHT BELEGT", "MICHT RELEST". 
"SOHSTIGE AUSG," 

?7&9 DATA"SELBST. GEMERRE" "GEHALT", 
"GESCHENKE/GEUTNNE" "NICHT BELEGT" 

?ra DATR"SONSTIGE ETHHAHMEN" 

aaaa POKEIER?I, FA:PRIHT"T" 

AmAR PRIHT TREE" 

gaza PRIKTIMRTTN RITTE PASSWORT I" 

aaa PRINT!" MIEITEIRITER RR" 


MONAT 


EDER ana 

nrmese19) 

7 ENEA=1T019 

8 READAFCA) 

3 HET 

1a POKE3SS79.26:PRINT"TW" 

a3 PRINT'MIM : MEHNAT-SLUMMEN" 

ar ERTNTTIMD © MONAT-EINZELN" 

=a PRINT" : GRUFPE-SLMMEN" 

Ha PRINT" : GRUFPE-ETHTELM" 

51 PRINTIWEE : PRANTENT" 

Er DRTATI TE FHNF!" 

7A PRINTOWARRITTE UMEHLEN STE 

Sa PETE: TENE=!" "THENSA 

a5 TFNE="E"THENFRINTFT":CLOSE2:CLOASER: 
NPEHI,S.1S:CLASEL:END 

an Mewal ine) 

{AR TFACINPA>STHENSA 

11a ANOGOTMIAAG. FOaR, SEaa, Pond, 2adaa 

1229 GOTOS@ 

122A REM 

aa PRTKT.TN 

1112 IHPLTPIEMANAT: "ME: MeVAL CME) 

1122 TFMOINEMSLITHENTIAR 

1139 DE="MANST "+STRECM) 

11m TE=NE+".S,R" 

1150 DIMSC19) 

1180 NPEN2,9,4,08 

117@ TNPUTR2,CHC=VALICH) 

1189 THPUTE2.TE 

1129 THPUTB2.TE 

am TMPLTEZ, BE:B=SVALCBE) 

1212 SCOI=SCC)+B 

1229 R=ST: IFR=&4THENI AR 

1232 G0T01172 

ı2aa DIOSE2 

1293 PRIMTITBMOMATZ - LTETE: ";M:ERTHT 

i=1a FORA=ITNI2 

121m PRINT) 

1316 TFSLRI=ATHENPRINT:GOTNL33IA 

120 PRINTASLAI:"W",SCA) 

13394 HET 

1349 FORA=1TO1A 


araa FORKL=-1TOIAR 

aaa GETPIE:TFPLF=""THENGASR 

arena TFASCIPIEI=LITHENALAA 

arm Pr=P£+Pil$ 

4A89 NEXT 

4ıaa IFP£="FTRU"THENRETUPMN 

gear POIKERESTR. 15: FOKE3ERTS, 1A 

1m HEU 

1257 AeR HN 

135 HET 

17a FORA=ISTN13 

1229 EN=EN+SCA) 

1399 NEXT 

ı4AA PRINT"DIFFERENZ" .EN-AI! 

1429 GETME!TFAECH"E"THENIAPA 

ara PIRINNTNE 

aana PRTAUTITY 

aaa TNPUTTWERRINHRT: N CME M=YALCHE 

AR TFMANPM>L2THENaAAA 

sasa Ne="MANAT "+STRECM) 

3a4A DI=-DE+",S,R" 

aasa PRIHT"ER MAHATS - LISTE gtimi tg" 

area NPEH2.3:4.08 

aara RS=ST: IFRS=54THEN3209 

=asa IMPUTH2,CH:C=VALICEN 

3a25 RS=ST! TFRE=BATHENI2AA 

ARE TNEOIITHI,TE 

aaa PSeST: TFRE=SRATHEHADAN 

ar TNPUTAHI.NE 

11a THPIUTH2,RE:BeWALCRE) 

12a PRINT"WICH;" "TE 

a1z2a PRINTDE,BE 

3149 2=7+2: IFFMIETHENTIEN 

aa SCTNSA7R 

715% SATDZ2AA 

Z1AR PRIHT"ERLEITER ICH" 

A182 GBETIE:IFME=""THEN316? 

2184 IFME="N"THEHATER 

FIRE 7=R:PRINTITE MAHATS - ITSTE "iM: 
"et HoTnaa?7e 

Sean BLOSEZ 

az1a PRTHTISENDER" 

ana BETOE: IFMECH"E"THEHFZZA 


RA LLR:GOTOE 


PRINT" :DIMSC12N 
INPUT" IAMODE: ";C 


a TFELLORCILITHENSEIE 
= C1=t 


DE="LODE "+STRFCC)H 
ng=D$+",S,R" 
PRINT" 
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OPEN2,2,4,T18 


ara RS=ST! TFRS=RATHENSZAN 
zen TNPUT#2.ME'M=NVAL CHE) 
ERRS R2=ST: TFRS=F4THENSZAA 
=a29 IHPUT#2,TF 

sa95 RS=ST: IFRS=S4THENS2AA 


IHPITH2,DE 


a TNPLUTR2,PE:B=WALCRE) 

a SCM)=SCM)+B 

a RS=ST: IFRSCIHBATHENSAFA 
ı CLOSE2 

PRINT" DEI CODE - SUMMEN V;cyirm" 
PRINT" "SASCELS5:PRTHTUTE 
 FARA=1TN12 
A FRINTR. 
IFECA)=ATHENPRINT:GOTOF222 
= FRINTSCA) 
' NEXT 


FNRA=1T012 
B=3+StA) 
NEKT 


PRIHT TIER nn 


PRINT"MELIMME".S 

GETRE: TFOLZ>"E"THENSZ2? 
ELR:GOTOE 

FRI 
TNPUT"OTMCONF: "EC 
IFEZIORCHLITHEN FAR 


PRINTITER TONE - LISTE "ic: tz" 
:C1=£:PRINT" "ALDI" 
A DE=S"COHDE "+STRECC) 


D£=1$+",S. PR" 


A NPEH2,8,4,08 


rasa 

Taen INFUT#2,ME 

rasa RS=ST: IFRS=S4THEN?3BO 
ara IMPLT#2.TF 

7975 RS=ST: IFRS=A4THENFARA 
aaa IMPLT#2.DE 

asa INPLT#?,RE 

11A PRINT 

zı2a PRINTME:" "TE 

"13a PRINTNE.BE 

4m 7=2+2: IFZMSTHENF2AR 


Eine F 


A RS=ST: IFRSCHS4THEHFARA 


GOTO?3AA 
PRINT"MIEIEITER TH" 


2 GETAE:TFOL=""THEN?21A 
a IFn£="N"THEN?IRA 

3 Z=A: PRINT" CODE - LISTE ";C1:"2" 
"PRINT" "SAFCEIS "WE" GOTOFARA 

a PRINT'BENTER" 
A SETME: TFOECH "EN THEN?ILO 
2a SLASER:ELNSELCLR:GOTOG 


ublikatior “nn CHIF 


[en 
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Sraaa DATA"SPAREN" . "BUECHER" , "ARGABEN", 
"EI" "RTLDUNG" "AUSGEHEN" , "GESCHENKE" 

Ri DATA"AROHNEM, "  "ESSEH". "LOTTERIE", 
"KLEIDUNG". "12","13", "SONST. AUS." 

aaa DATA"SELBS." "LOHN". "GEWTNNE" "18", 
"Schalen 

1aaaa POKEIASTI. IA:PRINTNT" 

1a PRINT NETTE 1 PITTE 
PASSMORT |! 

1aaaa FORKL=ITOLAA 

aaa GETPE: IFPF=""THEHLAA 

as TFASELPEI=IITHEHIAIA 

an? PiE=PIE+PE 

ars NEKT 

aan TFPit="FIRL"THENRETUFN 

ıa11a POKE3E978. 19: POKE36875,180 

a2 HEL 

2m FEM 

aaa PRTHT"TYM" 

Para THRLUTWERMAHAT: "ME M=UALEME) 

za122 TFMZIORM>LZTHENZELAM 

aaa DE="MONAT "+STRFCMH 

zeig DE=-DE+H",S: PR" 

2a159 DIMSCLO) 

za1eg GPEWN2.=.4.ND8 

za? THRUTE2,CH:CSVALTLCR) 

212g INPUT#B2.TF 

za1sa IMPUT#2.DE 

2a2ar ITNPUT#2, BE: B=WALCREN 

za21a ScnI=Sttt+B 

zarı2 TFOFSTATHENSLU=SLU+HER 


li 
n 


aaz2a Feat: TIFR=A4THENFRIEO 

aazaa GETAZALTA 

zearaa CLOSE2 

ara TFSLU=ATHEHSL=-1AA 

zazas PRINT"TBPROZENT - LISTE "Mm: "a" 
zasja FORA=1TN19 

2ar15 PRINT"E"; 

a1 IFSCAI=ATHENPRINT:GOTO203IA 
2a328 PRINTASLAI:"E", INTCLSCAIKLERZSIND +, 55 
zar2a HEKT 

ea24a FNRS=1TN1A 

azeA AU=AL4SCH) 

area NEXT 

zar7a FORA=S1STN19 

2a332 FH=EN+SCA) 


aan HEKT 

zagam PRINT"TIFFERENZ" . INTELEH-ALN 
*1a9zS1l+.5) 

zag42R GETRE:IFOETN"E"THENLA2N 

aaa OLR:GOTOE 

Sg212 IFC>14 
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JAHR 


aan 
= PR 
sr 
ia F 


11 FRE 


12H 
sam 
1a 
Dre: 
{2A 
132 
135 
1A0R 
145 
10 
195 
16582 
170 
ke 
om 
1aaR 


ans 
a1a 
ta=0 
1939 
1man 
1089 
1955 

iaca 
ass 
Kara 
1aaı 
1aaA 
11aa 


1119 RS= 


1120 
1138 
1148 
sa 
{les 
116 
117 
1188 
1199 
12agı 
za 
1720 
1239 
1249 
aA 
1260 
aaa 


aan 
Rap 


122 


BT ARAR 

T MT n ai 

MAFL1O) 

NRA=1TO1® 

FANAELCAN 

EXT 

PIKE3ES?9. 26: PRINT" 


PRINT"M TAHRESAUSWERTUHG" 
PRINT" S---------------------- a" 
PRINT"MML : GRLIPPEN-LISTE" 
PRIHT"MER : MONATS -LISTE" 
PRINT" : BROZEHT-LISTE" 
ERINTUSTE ' ENTE" 
PRINT"MMEIRITTE WAEHLEN STIER" 


FETAE: TFA£=""THEN SR 


= TFOg="E"NTHENPRINT"T" END 


IFaS=""THENIAAB 

IFOS="2"THENZARG 

TFAg="A"THENSAAR 
SOTO1=R 

PRIHT " TIRININDIe AK Hehe che CHAR KDNNEN 
= RITTE WARTEN KDD" 

PRTUT "EBK" 
nIMsC19) 

FORA=1T012 

DE="MONAT "+STRELA) 

NE=SnE+", n = ‚PR I) 

NPEH2.,8,4,.D$ 

RS=ST: IFRS=64THEN1129 
INPUT#2,C$:C=VALCCE) 

RS=ST: IFRS=AATHENI 120 

THPLITE2, TE 

THPLIT#2, T% 

INPLT#2. RE: R=VALCREN 

SCEI=ECCIHB 
ST: IFRS£>64THEN196Q 
ELOSE2 
NEXTA 
PRINT" 
FORA=1T019 
IFSCAI=ATHENPRINT:GOTN1178 
PRINTYE"IASCAD:"E" SEA) 
NEXT 
FORA=1TN14 
At=A1+SCA) 
NEXT 
FORA=1STN19 
EisE1+S(CR) 
NEMT 
PRINT"WERGEBNIS" . INTCCEL-ALIKLAAI/LOR 
GETRE: IFOSCH"E"THEN12SR 
CLR:GOTO? 
PRIHT " TTEIRIBRABRRHRNESRGGNAAAENDNTT 
= BITTE WARTEN VDEKTEI" 
PR TUT" use" 
nrmac12) 


SRIPPEN - LISTE 


FORA=1T019 
nE="ENDE "+STRECA) 
TE=DE+",5,R" 
QPEN2,8,4.N# 

RS=ST: IFRS=S4THEN313R 
INPUT#2. M£:M=VALCME)I 
INPLIT#2,T$ 
INPLT#2,T$ 
INPLT#2., RP! B=VALFRE) 
TFACLLSTHENSCMISSCMI-B 
TFA>=1STHENSCMI=ECMI+E 


A RE=ST: TFRSCHSATHENSBER 


CLOSEZ 
NE#T 


9 ARRIHTIST 
= PRINT"R 


MOAHATS - LISTEN" 
FNPA=1T012 


a PRIMTA, 

2 TFSCAY=ATHENFRINT:GOTN: 
 PRIHTS(AY:S 
A HEXT 

Bu PR UN Se ae w" 

A PRINTIWWERGSERHTS".S 

a BETAE: IFMEZ>"E" THENZ2DA 

a CLR:SNTO2 

a NATA"SPAREN" . "BLUECHER" , "ABGABEN". "EDV", 


3182 
=S+SCA) 


"BILDUNG", "AUSGEHEN" , "GESCHENKE", "AR 


ANNEM. " 


sarlf 


aaza 


NATANESSEN" ‚"LOTTERIE" "KLEIDUNG", 
"12", "12", "SONST.AUS, " 
DATA"SELBST. " "LOHN". "GEUINNE" "10", 
n SONST, E," 


ai HERE TERLERLERELET FE ALU. 


= BITTE WARTEN MIMTETETEN" 


Sans, PRINT" ikkesksaklakieklslaklalsisl" 
sam NIMSC19) 

sa29 FORR=1T012 

sa20 N$="MONAT "+STRECA) 

=94Q Di=D$+",2,Pp" 

SosA NPEND.R.4.T% 

SaSS PS=ST: TFRS=KATHENS12N 

Sara INPUTF2,TEICSYALLCE) 

Sa6S RS=ST: IFRS=GATHENS120 

5a7a INPUT#2,TE 


A PRINT"TRE 
A FOFA=1TN1A4 


INPUT#2.T$ 
INPLIT#Z, B&!R=VALERE) 


N SLOY=SCC)HB 
A RE=ST: IFRSCHGATHENSAGDO 
a CLASE2 


NEXTA 
PROZENT - LISTE" 


Al=Al+SCA) 


A NEXT 
r FORA=13T019 


Ei=E1+S{A) 


A NEXT 
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242 FORA=1T019 

2249 TFESCA=ATHENPRINT:GOTOSZER 

PRINT"E" A&CAY"@" , TNTCSCAIHLARD/EL+.SI 
SPeA NEKT 

a PRIHT"WBERGERNISE". INTCCEI-A1) 
K1aQ/E1+.9 

A GETRE: TFASCH"E"THENS2SA 

s29a CLOSEL:CLR:SOTO2 

anna PNKE3ES?I. ZA: FRTHT"T" 

aaa? PRINT" DERERERBSSERIIIERIEHNORE" 


aaa 
1aaae 
1aa1a 
1an2R 
1aa32 
12a40 
12050 
1a1aR 
19112 
1a12a 


PRINT" ERBE BITTE PASSWORT I! 1" 
PRINT " AISTAIKTERBIEK SER" 
FORKL=1TO1AM 

GETP&: IFPF=""THEN1AR2R 
IFASC(P£Y=13THEN1A1AR 

Pit=Pi$+P$ 

NEXT 

TFPIE="FIRUNTHENPETURN 
POKE3EB?R, 15: POKF3ER?S. 175 

NEM 


Das Programm UT-DUMP listet Ihnen Ihre auf 
der Diskette vorhandenen Programme auf und 
nennt Ihnen den Byte-Bedarf. 

Anschließend gibt das Programm die Anzahl 
der freien Bytes an. 


OPEN2, 8, 15:0PEN4,4 
PRINT"T" 

DPEN1,8.2, "$q" 

GET#1,AS,BS 

GET#L,AS, B$ 

GET#1.AF, BF 

C$="":0=Q 

IFASCH" "THENE=ASCCAF) 

IFBSCH" "THENC=SCHASCEBEIK2SE 
A CE=STRECCHCESMIDSCOH,2) 

{ IFLENCCFICATHENES="ANHCH 
2 GET#L,BE:IFSTODATHENZI 
23 ne=! n 
4 IFBSCOCHREC34)THENI2 
5 GET#1,B$: IFBSCICHREC3A)THENDE- 
D$+B$: 607015 
16 GET#1, RS: IFBS=CHRSCRZITHENIG 
17 Ef=" " 
18 ES=ES+BS:GETHL, BF: IFRSCI""THENS 
19 E$=LEFTS(ES,3) 


ee DO NMAM AWO 


aa IFST=ATHENGOSLUB22:GNTOS 

21 G0T045 

22 IFI=2THEN32 

23 PRINT#4,CHRECIAICHRELCIEI"ZADIRECTORY": 
PRINT#4 

24 Z£="GN ARCH-NR AUFZ,.-DICHTE nos" 

25 2$=2$+" ANZAHL BLOECKE KENN-NAME" 


26 PRINT#4,CHRSCISIZE 
PRINT#4:2$=" 8 

256 RYTES/SEKT. " 
26=2$+"CRM MISV2.6 VIrQ 
"4D$ 


u +E$+ n 


683 (#64 FREI? 


Eine Publikation von CHIP 


ist ein Drucker 


das 
erforderlich. der das Directory ausgibt. 


Für Programm 


E.Saller 


29 PRINT#4,Z$:PRINT#4'PPINT#4 

29 2$="FILE - IDENT AKT.BL. 
DISK-BEL.  NRG-ART" 

31 PRINT#4,2$:FORI=1T089:PPINT#4,"-"; :NEXT 

:PRINT#4:PRINT#4: 1=2:RETURN 

IFLENEDSICISTHENDE=SDS+" "007032 

IFLENCCEIL3THENCE=CH+" "601033 

SC=SCHL :7=2+1 

B=INT/CK2SA+, S):RE=STPECH) 

IFLENCRBSICHTHENBE=RE+" ":G0T036 

TIB=INTCT/G.G4KLAR+. SI /10Q: DRF=SSTRECDB) 

nB$=" "+NB$:DBE=RIGHTECDRE,S) 

IFMINSCDBS, LENEDREI-1,1)=", "THENDBF=DRS+ 

"gan :GOT038 

IFVALCDESI=INTCYALCDBSIITHENDRE=SDES+". 

aa" :GOTO38 

41 IFLENCDBEICSTHENDBESDRE+" ":O0TO41 

FE=NE+" nıng+" N+RE+!" 

1} +DB$+ s " +E$ 

PRINT#4,2$ 

RETURN 

PRINT#4:PRINT#4 

P=INTC (664-5036. 64K1A9+. 57/100 

B=INTC3AAKCE64-SCH) 


CA.BYTES 


DEN en BE9S Ba Bot Guy EN Bey) 
SM BI 


\D iD 


48 PRINT#4, "FREIE RLOECKE: "664-505" 
1 a ir 

49 PRINT#4," FREI BYTES: ":B:" 
EINTRREGE: ";Z 

sa PRIHT#4, "FREIE EINTRREGE: "144-2 

si PRINT#4 


32 (GLOSEI "ELOSE2: CLOSET:CLOSEA 
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DNTIRECTORY 


GN ARCH-NR ALFZ,-DICHTE ns ANZAHL BINECKE KENN-NAME 
Ss Sf aa6 PVTES/SEKT. CRM DOSVY2.6 v17A 683 (664 FREI EIKE SALLER 
FILE. IBENT AKT.EL. CRERWTES . MISK-BEL,  ORG-ART 
LITDLIMP me 1598 Pe ) PRG 
FAHLENSPIELF m? 175 1.99 PRG 
MONDLANDUNG 1a 252 1.51 PRG 
SCHATZSUCHE a4 1ama ‚ea PFG 
2 TIMENS.NIM a7 17a 1.95 PRG 
DATLUIMSRECHNG 18 25aR en PRG 
CLACK ar 175m 1.93 PRG 
ARSTAND-UINKEI als 15a ‚gm FRG 
FARTNERWAHL n7 1750 1.89 FPG 
SAR-RACE im 2a 1.21 PRG 
SUBMARTNE 1a 25aR 1.51 PR 
RATTLE-FIELD 13 32 1.29% PRG 
FANENKREUZ 1A SA Hasen! PRF 
RALMEAMFF hr aaa 1.96 PRG 
FREIE RBLNECKE: 44 TU.2$ 221293 FREI BYTES: 163200 ETNTFAEGE: 14 


FREIE EINTRAEGE: 1730 


Dieses Programm ist ein Ersatz für den Das Programm funktioniert folgendermaßen: 
Befehl "AUTO". 

Das Programm: Zeile 0: Eingabe von "A" und "W". Abspei- 
1. Eingabe oder Laden des Programms in den chern von "W" in der Speicherstelle 822. 


Arbeitsspeicher. 
2. Start des Programms mit RUN. 


Aufgabe einer Leerzeile. 
Zeile 1: Zerlegen von "A" in lower/higher- 


3. Es erscheint "A?". Geben Sie den An- Byte und Abspeichern in 821 und 820. Aus- 
fangswert der Zeilennummer ein. druck von "A" auf dem Bildschirm. 
4. Es erscheint "W?". Geben Sie die Zeile 2: Eingabe des Zeichens abwarten. 


Schrittweite der Zeilennummer ein. 
52 Nach Erscheinen der Zei lennummern 


Holen dieses Zeichens vom Tastaturpuffer. 
Ausdruck des Zeichens auf dem Bildschirm. 


können Sie über die Tastatur die Syntax Abfrage. ob RETURN eingegeben wurde. 
eingeben. Zeile 3: Ausdruck von RUN4 unterhalb der 
6. Beendet wird dieser Eingabe-Modus durch eingegebenen Zeilennummer. Belegen des 


Betätigen der RUN-STOP-Taste. Nach dem 
Löschen der Zeilennummern von 0 bis 4 
befindet sich ein Programm im Arbeitsspei- 
cher ohne zu Beginn einer Zeile je eine 
Zeilennummer eingegeben zu haben. 
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Tastaturpuffers mit den Zeichen 4 x CURSOR 
UP und 2 x RETURN. Belegen des Zeichenzäh- 
lers des Tastaturpuffers mit der Zahl 6. 
END-Anweisung. 

Nach der END-Anweisung 


werden die im 


Commodore VC-20 Programme 


Tastaturpuffer sich befindenden Zeichen 
eingearbeitet. Es kommt so zu einem RETURN 
über der über die Tastatur eingegebenen 
und auf dem Bildschirm ausgedruckten Zeile 
und der Zeile mit RUNd. Die eingegebene 
Zeile wird also nun als neue Programmzeile 
in das Programm aufgenommen und der Befehl 
RUN4 wird ausgführt. 


Organisation/Programmierung 


des momentanen Zei lennum- 
un 


READY. Erhöhen 
mern-Wertes "A" um die Schrittweite 
Zurück zu Zeile 1. 

Zeile 1000: Sobald sich das Programm im 
Arbeitsspeicher befindet. besteht mit 
RUN1000 die Möglichkeit. bei einer Fehler- 
meldung der Floppy diese sofort abzurufen. 


"Ta" :A=PEEK.(820)#256+PEEK (821) +PEEK (822 


Zeile 4: Löschen und Ausdruck RUN4 und Josef Metz 

a INPUT"RPIB "5A 

ı IF A<12 GOTO 8 

2 INPUT"WPB  "5M 

3 1If Wa G0T0 2 

4 POKE 922, W:PRINT 

= POKES28, INTCA/2S6) :POKEBZ1. A-INTEA/2367 8256: PRINT" SR; 
6 WAIT198, 1:GETAF:!PRINTA$S; : IFAFZICHRFC LI THENS 

7 PRINT"RUNG" 'FORI=6311T0634: POKEI, 145: NEXTI: POKE633, 13: POKE636. 13: POKE198,6: END 
8 PRINT" ":PRINT"M 

3:GOTOS 


Das Programm CODIERBLATT druckt mit dem GP 


100 oder VC 1515 ein sogenanntes Codier- 
blatt. mit dem Maschinen- und Assembler- 
Programme erstellt werden können. 

Andreas Müller 


> IHPUT"UTEUTELE BLAETTER"SRL 


2 ENPP=ITORL 
= MIPEN2,A 
na FORT=1TIAN:PRINT42, "ME"; INEHT 
1am PRINT#2.CHRSLISI"® ® 
gg" s 
195 PRINTR2.CHRECLEN FOR" 
209 PRINT#2.CHRELLSI"® DLSREG ® SYSTEM: 
un . 
DAS PRTHTED.N BLATTSCHREOIKYN FERN 
1A PRINTE2,CHRELISIN® ” 
Er F 


2153 FRINT#2,CHRSCLEI" FOR 
22a FORT=SITOSA:FRTNT#2:CHRECISN "2" NEXT 


= DATUM: 


TITEL: 


Ei 
BE 


240 FORT=ITOR:PRINTEZ. CHE "AA 5: FRINT#2,CHRFCLEI"FOR" NEXT 


259 FORT=ITOSE:PRIMTE2. "SC HEMT 
aaa PRINTEZ.CHREISNN® m 


a1 PRIHTE2." = 


” ” m; 


von 


32a FRINT#2.CHREISI"® SPEICHER- ® COTE ® MAPEE = ASS- ="; 


33a PRINT#2," ADRESS. ® KOMMENTAR 


"ne Pırblikation von CH!” 


u" 
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24a PRINT#2.CHRELISS"® ZELLE 3 ® = BEFEHL ®"; 
asa PRINTR?," ® m 

251 PRINTHI,CHRELISY"® ”® % * mn; 
252 PRINT#2," m g" 

a6n FORT=1TNSA:PRINTH2,"®" ; NEXT 

ara FORT=1TN44 

aaa PRINTF2.CHRECISI"® ” = ” m"; 
41a PRINTE2," ® m 


aan HEXT 

43a FORT=ITOSA:PRINT#2."®"; :NEMT 

45a FORT=1TDE:PRINT#2,CHRECIEI "RAR" 5 :PRINT#2, CHPELIEN" 798": NEHT 
46a FORT=1TNEA:PRINT#2,"%" 5 NEXT 

47a PRINT#HZ:CHFELEI "ARM" 5 :PRINT#2,CHRELIEY" IM" 

428 PRINT#2.CHRELIEI" ARE"; 

421 PRINT#Z,CHRECIEI"A? ANDFEAS MIELLER MIRELIUNGENSTR. 1 SSa1 LINDELBLUPG 99189 
FPZZRAN 

432 PRINTRZ,CHREOIENN FIR" 

4ar FORT=1TNSA:PRINT#2."®" 5 NEXT 

zanaa FORT=1TN4:PRINT#Z2:NEXT 

z2aaR PRINT"THOCH":RBL-P}" BLAETTER" 

zsaAA FRINTF2:CLNSEZ 

2eaaA NEXT 


® 
DLSRBG WM SYSTEM: % DATUM: # TITEL’ = BLATT: 
B u 2 = 


SPEICHER- CODE ® MARKE ARSS- ADRESS, KOMENTAR 
ZELLE % BEFEHL 
2 
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ı 


1 
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Das Betriebssystem des VC 20 läßt es nicht 
ohne weiteres zu, Zahlen formatiert auszu- 
geben. Dieses Problem läßt sich durch ein 
Unterprogramm lösen (siehe CHIP 10/82). Es 
kann jedoch störend sein. einer bestimmten 
Variablen den auszugebenden Wert vorher 
zuzuweisen. Um dieses zu vermeiden. ist es 
möglich. eine Funkton zu definieren. die 
einen Wert liefert. der abhängig von der 
Eigenschaft der auszugebenden Zahl ist. 
Dieser Wert wird als Argument für die 
"TAB"-Funktion des VC 20 verwendet. mit 
dem die Zahl nun formatiert ausgegeben 
werden kann. 


Eine Publikation von CHIP 


selbstdefinierte Funktion sieht fol- 
gendermaßen aus: 


Die 


DEF FNT(X)= v - 
INT(LOG(ABS(X)ASGN(X*X) )/LOG(10) )+SGN(X*) 
-2-OfINT(ABS(X )*10)+2*0 1X 


die identisch mit 
Vorkommastelle 


v ist hier eine Zahl. 

der maximal auftretenden 

ist!!! 

Aufgerufen wird diese Funktion mit: 
PRINT TAB(FNT(var))var 
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var ist eine beliebige numerische Variab- 
le. wobei jedoch unbedingt darauf geachtet 
werden muß, daß der Absolutwert dieser 
Variablen nicht kleiner als 0.01 ist. 
Ebenso dürfen die Absolutwerte der Variab- 
len nicht so groß werden. daß sie im Expo- 


8 REM "FORMAT" 


nentialformat ausgegeben werden. 

Für den kaufmännischen Zahlenbereich ist 
diese Funktion jedoch uneingeschränkt ver- 
wendbar. 


Ralf Heinrich 


18 DEFFNTCN=S-INTCLOGCABSCH) TSCNCRMK)II/LOGC LEI I +SONCKARI-2-OTINTCARBSCHMIDI+ZUO 


1% 

28 FOR I=1 TO 16 :A=RNDC1IN10008 
38 PRINT TAB<IFNTCRI?A 

48 B=-A/2:PRINT TABCFNTCBY)B 

58 NEXT:END 


Vor dem Start des Programmes müssen die 
Dateien angelegt werden. Notwendig sind je 
eine Datei für jeden Buchstaben des Alpha- 
bets und zwei Sonderdateien. (A bis Z und 


ST und SCH). In jede Datei ist ein belie- 
biger Eröffnungssatz zu schreiben. 
Funktion 1 

Dieses Schnittstellen-Programm dient zur 


Aufnahme der Adressen aus der Auftragsbe- 
arbeitung. 


Funktion 2 
Hiermit lassen sich alle Anschriften einer 


Datei auf dem Bildschirm anzeigen. Bei 
Eingabe von "P" wird die aktuelle Adresse 
auf dem Drucker ausgegeben. 

Funktion 3 

Sie können hiermit Anschriften suchen. von 
denen Sie nur Textstücke wissen. Weitere 


Behandlung wie Funktion 2. 


19 PRINT"I4":POKE36879.8 

2a PRINT" MIMMANRESSEN -— NISKETTEM 
EINLEGEN" 

2a PRINT"MEDLMAHH  7£7 

4a GETTE:IFTFLP"£" THENAO 

sa FILNSEL,2,F:CLOSF4. SEC 

12a@ PRINT POKESE272:B:PRINT"IE" 

119 PRIMT"I : ADRESSEN-ALFHAHME" 

120 PRINTIM2 : ADRESSEN-DLIMP" 


DRUECKEN I" 


Funktion 4 
Auch beim Hinzufügen wird jede Anschrift 


nur einmal übernommen. Nach der Eingabe 
der Daten verzweigt das Programm zur 
Funktion 1. Alle Eingabefelder können mit 
der f1-Taste gelöscht werden. Mit der *- 
Taste springen Sie ein Feld zurück. 


Funktion 5 

Wenn Sie die gesuchte Anschrift auf dem 
Bildschirm haben. können Sie das zu 
ändernde Feld wählen. Die Eingabe erfolgt 
am unteren Rand des Bildschirmes. 


Funktion 6 
Diese Funktion dient zur Eliminierung von 
nicht mehr benötigten Adressen. 


E.Saller 


138 PRINT"WM : 
148 PRINT": 


ADRESSEN-F IHN" 
HIHZUFLEREN" 


za PRIMT"IG : RENDERN" 
1ER PRINT"WS : LOESCHEN" 
122 FRINT'"MBE : ENDE" 


192 PRINT" MIMEITTE WAEHLEN STE 1" 

zam GETTE:TFTE=""THEN2AO 

291. IFT£="E"THEHPRIHT"TT EHN 

21a TFTF="I"THENT=1AS="ADPESSEH - AUFNAHME 


a HS 


Programm 


ee ——  ——,—i 


” 2 H":GOTOZaA 


22R IFTE="2"THENT=2:AF="ADRFSSEHN - DUMP 


SUCHLAUFM J ? H":GOTN2AR 
24R TFTE="4"THENT=4:AL="ADPESSEN - 
HINZUIFLIEGEN mT 7 H"GOTORaA 


es TFTE=S"S"THENT=E:AF="ANPESSEN - AEHDERN 
MT 7 H":GOTORAA 

2eA IFTE="E"THENT=6:AF="ADRESSEN -— LIESCHEN 
nT + H":GOTN398 

93 GATOZAA 


aaa PRTHTTIMMTM"'AF 

31R GETTF:IFTFL>"T"ANDTFC>"H"THENS1O 

s2a IFT£="N"THENSR 

33a NHTGOTOTAAR. >2Ama, aan. ann, Taan, San 
ana PRINT"! MMALFTRAGS - NISKETTE 


" EINLEGEN" 

aa PETMTIWIRTDAHN °£” DRUECKEN" 

ıasa GETTE:IFTEEI"E"THENLA2A 

1932 PRINT"IT':N=8:DTMSEC25M) 

aaa DPEHI.8.4. "ADRE,S.F" 

1asa IFRSZSATHEN11A 

1955 N=N+1 

1asa ITNPUTHL.SECNN:SFCHISSECHNF" . 

ara RS=ST:GOTOLASA 

11a CLOSEI 

112 NPEN1.2,4."@TANRE,S,M" 

114 CLAFEN 

jt1a PRINT"TY" 

s11>A PRTNT'MIERMADRESSEN - DISKETTEM 
EIHLEGEN" 

113@ PRINT"MIITTDANN 72° NRUECKEN" 

114m GETTE:IFTESH"E"THEHLLAR 

115a PRINT" :RS=A 

11652 FORA=1TON 

17a DE=MIDECSECAI.2: 1 

1189 IFMINECSECRN. 2, 33="SCH"THENDE="SCH" 

12a IFMTNECSECA),2.2I="ST"THENNE="ST" 

12AaR HE=NE+",S.R" 

21a DFEN1.9,4.HE 

122m IFRSZIATHENI AA 

1230 INPUT#1,SF 

1240 RS=ST 

1250 IFLEFTECSS, VDD=LEFTECSSCA) , 1) 

THENCLNSE1:HEXTA 

sa G0TnI22M 

a LLOSEICHE=SDEH" SA": 

A NPEN1,S.4.H8 

a PRINT#RL.SECAI:SCHFELIFN: 

a ELNSEL 

A NEKTA 

a anTnFa 

a PRINT" 

a TNPLTIWRTSTEI-CODE: DERART" ; BE 

S IFBf=""THENSA 

a IFLENCREICHIARNDRECH" SCH" ANDRE 

»"ST"THEHZORR 
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Sara TEYALCBEICHATHEHDANA 
zaA4a DESBE+".S, PR" 

2asa DPEN1.9.4:D# 

<asa IFRSCHATHEH24SR 

a7 INPUTH1:S$ 

asa Re=ST 

aaa GAZURFIAA:ENTITARA 

aaa STAR 

am AlS=LEFTESE.t) 

11a ADE=MINE/SE,2,20) 

H2R A3E=MINELSE,22,29) 

2140 A4E-MINELSE, 42,4) 

2459 ASst=MIDFLSE.AE.DM) 

Z1=5 ARS=MIDEISE,6E. 10) 

aaa PRINT" 

=a3a5 PRINT" SAHREDE: W Alt 
2=19 PRINT"IHRAME : mr, .A2# 
za20 PRINTIMISTR, m, ,A2E 
aaa PRINTIWPLT  : miiAdf 
zaan PRINTIMWMET m, Ant 
aaea PRIHTIMITEMT : MACHE 
2aam FRIHT"MMMEITER  IF/MN/P" 
241Aa GBETTE:IFTE=""THEN?419 
242 IFTE="T"THENPETUFN 

24aR TFTE="N"THENLLOSEI:GOATNSR 
2435 TFT$="P" THENGOESUB2SAAM: RETURN 
244A GOTO241A 

24a PRINT"TTIQFTTTER SATZ I" 
zAaca ERINT"WRITTE EINE TASTE" 
2ara GETTE:IFTE=""TUEN?47A 
ara HNTNA 

san OPEN4.4 


PRINT#4.CHRSCIES"TASANREDE : "AIF 
PRINT#4.CHPECIEI"RSHAME ©: "A2# 
PRINT#4,CHRELIEN"ASSTRASSE: "A3F 
PRINT#4.CHRECIEI"ASPLZ " "Ad$ 
PRINT#4.CHRECIEI"ASORT Ant 
PRINTHA.CHFELIENTASTEXT : "AGF 
ELISEAPRETIURH 


I SrnP 
A PRIHITUI 
3 PRINT" MMRZEICHEN-FOLGE" 


INPUTIEDIRE" ; 7% 
INPUT"MATET-CODE AUFERTN DE 


= TMPUTURENON BYTE" SWR: INPUT 


"BIS BYTE",BB 

IFEBZVBTHEN3N2S 
IFLENCDESTILANDNECH"SCH"ANDDET> 
"ST"THENSA2A 


1 TFYALCNEICTOTHEN2A2B 
= TFUR-ATHEHUB=] : 


IFRR=ATHENBRB=73: 


A DE=DE+".S.R" 


NPEN1,8.4,D$ 
IFRS<PATHEN245A 


A THRUT#1,SE 


3085 RS=ST 


A S=LEN(SEI:ZELEHNCZE) 


79 


Organisation/Programmierung 


aan 
am1n 
ana 
4aag 
aa4m 
4950 
ansa 
aara 
aaa 
aaa 
aan 
art 
4120 
ara 
414 
4154 
len 
re 
am 
An 


FORA=Y/RETOBB 
IFMIDECS$, A, ZIeZETHENGOSUR2IAR: 
EnTazare 


A HEKTAR: 
a4 GOTMZAF 


PRINT" 
PRTHTITISANPEDE MO THPLITALF 
TFAIE="9UTHENSA 
TFLEHLALENZHTTHENMDRO 

PRINT" EUNAME m": INPLTA2E 
IFLEHCAZEILZATHEHAZFSADFH" " 
A2#=LEFTECR2F, 20) 
FRIHTFMSSTR,. 8": IMPLTAIF 
IFLEHEASFILZATHENAFE=AREH" 
AIE=LEFTELAIE. 20) 
PRINTIIIPL? ww : : TMPLITA4E 
TFLEHrAAEICHATHEHAAIA 
FRINT"MAORT "M" : TINPUTASF 
IFLEHKASFILDATHENASESASEH" ": 
aSfel EFTECASE, 2 
FRIHTIMATERT 0; : IMPUTASF 
TFLENCABEILLATHEHAEE=AEF+" " 
ARE FFTECDER 1A) 

EL INERI EABTELNIE-DILEHAF FACH 
ERTHTIMITN ORDNUNG JM" 
GETTE:IFTE=S""THENALOO 


:GOTO4A4A 


: GOTIIATEA 


FATO412A 


:GATO4I5N 


a TFTE="H"THENMAER 

9 N=1:60T01188 

1. PRINT") 

= PRINTIIMCRETURN) => 
3 TNPUTERIMIATET-CODE RA" DE 
= IFDE="" ANTM=1 THEHESAN 

: TFNE="WTHEHNON 

= TELEHEDENCHLANDNESCH"AHNNDEO 


HEHE" 


PNETITHENSANM 


a TEVALENEISIOTHENSDAD 
z M=1 


3 IFT=STHENAE="AEHNDERN 


JEHFE" 


IFT=SSTHENAF="LORSCHEN FINE" 


A HE=nge" ©, RU NA DTMSE2SN) 
a SFEHI:S:4,DE 

3 IFRSCHATHENS12R 

A N=H+1 


IHPUTEL.SECHY 


ı ReST 


1a aarazasen 
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FORA=I TON 


3 Al$=LEFTECSERN,. 19 
a aEMTNELSECA),.2., 20) 


Ce, 


A2E=MIDELSECA), 22,29) 


2 RIE=SMIDELSECAD: 42.45 
A ARSE=MIDELSEOAN. A, 20) 


A PRINT"TISRHREDE: "1 


PRINT"IMHAME :@"., 2% 
FRINTIMESTR, m". ,A2E 
ERTNTIASPIT u BE; 
PRINT MIRT w.,5f 


PRINTIMITEXT WM "SAGE 
PRTNT"MI"' A 

GETT$: IFTE=""THENS2?A 

IFTE="E" THENESAG 

IFT&="H" THENHERTR: GOTOESFAR 
IFT=5THENGERA 

FRINT"TTA = AHRETE 2 = HAME 3 = 
4= PLZ m = ORT =. Tex) 
GETTE:TFTE=" "THENSI2A 
TFYALETEILIORWALETEIISTHENSF2A 


STR, 


aa INYALLTEIGOTNT4AG, 3590. 560. 57a0, 


SER 
za 
za 
zen 
FEAR 
SEA 


send, 5a 
GOTI332E 
THPUTIM";A1F$ 


A IFLENSALEICHITHENS4LA 
A GOTNZFREA 


IHPUT"W"IA2E 
TFLEH{AZEILZATHEHAZFFAFEH "IGOTOSSIA 
Art EFTELA2E, 20) 

SOTIgasA 

TNAUTIWASE 
IFLEHCARESZIATHENAFE-AIEH" " 


} A3t=LEFTFCA3F, 20) 
a GOTOS9SA 


INPUT": AA 


m TFLENTSARICHATHENSTOA 

ı GOTNFASE 

a INPUT" ASS 

a IFLENCASEICZATHENASFSASF+" 


Bey] 
D 
4 
D 
A 

» 
er 
D> 


ASE=_EFTELAGE, 2A) 


a ANTOSRER 


THRLTIMI DEE 


a TI FRE IATHEHAEESAEFH" Me onTossia 
ı Reel EFTELREE 1) 

3 aaTIgaeAa 

3 SELAISAL EHI AIEHAALIATE- DEE 

Aa GNTmEtan 

3 FORR=ATNH 

N SECRi=SEeB+1) 

za NEXTER 

A BECHIe"" CHeN-1 


A HE=DEH" Sm He n4Ht 
A NPEHI.@,4,Ht 

R FORA-ITNH 

A PRTHTEL.SELON CHREIISN: 
3 HEYTE 


FURSER 
GATI2H 
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Funktion 1 
Nach der Eingabe des Datums in Jahr. 
Monat. Tag sagt Ihnen der VC 20, welcher 


Wochentag das ist. 
Funktion 2 


Hiermit lassen sich die Tage zwischen zwei 
Daten ausrechnen. Sie müssen dazu jeweils 
für das Start- und das Zieldatum Jahr. 
Monat und den Tag angeben. 


= aoTosse 
1A PRINT" 
15 PRINTSPCISY"IINCHENTAGEME" 
2A PRIMT:PRINT 
28 Y=R 
3@ INPUT"YEAR" A 
38, PRINT 
4a INPLIT"MONTH" SB 
45 PRINT 
sa THNPLIT"TAY":C 
er PRTHT:ERTHTIPOTHT 
FR Mey 
ES TFR-II=ATHEHR=R+1:ROTO?S 
FR Be124R9=R-1 
> HSTHTLRES, DSHAS+INTC2A, SHEI+C-521N49 
39 Hah-1 =CH-INTEN/FIRFIHLHL IN 
a5 IF Yet ATHENERTNTISMONDAYEE" GOTOL2R 
A TF Y=12ATHEN  PRINT"RITHLIESDATIE" 
GOTn 12 
a3 IF Ye12ATHENPRIHTISMIENMESTAUGm 
Fara 129 
1AR TE V=1ARTUEHPRTNTINITHUPSTAUGE 
FATn 120 
1AS IF YeISATHENPRINTINEERINAUEE" :GOTN 120 
112 IF F=1RATHENPRIHT"ISATURDAYE" : 
Garn 120 
115 IF YeirATHENPPIHTSSUNDAUER" IEOTO 120 
129 PRINT:PRINT 
125 PRINT SPECSY"N.K, ? 
139 GETAF: TFAF=""THENL2A 
135 TFAS=" T"TUEN PETUPN 
san narata 
gas ARINTITIMAUS BETUEEH NATESgE 
15q 7-0 
155 PRTHT 
A PRTHTNSTARTDATLIM" 
E85 PRINT 
172 INPUT"»EAR" IP 
175 PRINT 
180 
195 


J/H" 


TIHPUT"MOHTH" = 
SPRINT 
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Funktion 3 

Hiermit lassen sich nun beliebige Zeit- 
sprünge errechnen. Geben Sie wieder das 
Startdatum in Jahr. Monat. Tag ein und 


dann den gewünschten Rechenschritt. Wollen 


Sie zu diesem Datum Tage addieren. so 
geben Sie nur die gewünschten Tage ein. 
Wollen Sie aber substrahieren. so müssen 


Sie vor Ihrer Zahl ein "-" eingeben. 


12a TNENTIDATNLT 

195 PRIHT:'PREIHT 

zan PRINT"EHD DATUM" 

ZAS ERDE Dee 

zın INPUT"TERR" I 

215 PRINT 

22a TNPUTIMIHTHNY 

aaz PRINT 

aA THAUTINSFN SH 

225 TFY=1 THENH=R4+J925:G0T0245 

>49 H=eP 

245 G=S:1=T 

2=9 GOSUBIZA 

em T=]1 

2£A IFr=1THEHH=U+1925: STD? 

265 Hell 

2A GeWt Tel 

are SOSLRZ2A 

zeA K=I-! 

aan PRINT REES ENER N 

>99 PRINT"DAYS";M 

295 PRINT:FRIHT 

aaa PRINT ZPOLENIN,E, 7° 1/4" 

ans PFTREITFRE=""TUENSAS 

ata TFBE="T'THEN BETIRN 

15 GOTO143 

ara TFS-3>=ATHENZ=-LG-2130.6- 5: 
n 


G0=S18335'1=1-7: 6070335 
325 H=H-1 
2290 FZet-tB-2)-12820, 6-9 COSUR2SS:I=1-2 
aa 7=HR365, 25: G0SUR355: I=lrz 
a4 7=H/tAm:GNSUB3TS: I=I-2Z 
245 ZH 400: G0SURSSSH T=T+Z 
SEN TeT-2A7:DETIEH 
See Au: LOPEFTIN:TESCHITIEG PETUPH 


is | 

SS PRINT 

a7a PRIMTISETAGE + UND - ZU DATUM" 
37 PRINTSFRINT 

32a INPUT"START TERP";A 

325 FFIMT 
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THPUT"MOHNTH" IR 

RRIMT 

TMPLUT"DAY" ST 

IF&=1 THENA=A+1925 

GASLIRSIS:F=G 

FRINT 

INPEITTDAYS"ZH 

ARTHTIDETHT EEE 


a lu 


» 
TE ee TE En 
FADARONDND 
5 


Bann 


a-128n: R=1: n=7 
Ben4+t :EnsuRsis 
IFD>-GTHEN44R 
A=R-1 
RB=B+1:GOSUB515 
IFD>GTHEH455 

465 B=R-1 

479 SASLBS1a 

475 C=N-6 

aaa IF®=1THENA=A-1925 
485 PRINTA:". "BE". "SC 


an 


aAARANnDGD 
nIHIAA ar 
ar iD EN I Br 


7=365, 2541: GOSLIBS45 :7=2 
2=39, 541: S021R545 
GeW+24+0-621949 

RETURN 


490 PRINT:PRINT 

498 PRINT SPLESSUD.K. © Tl 
San GETTE:TEOF="NTHENSAA 

Sam TFOS="TITUEN RETURN 

sıa anrazea 

515 TFSSPTHENT=A-1:G0SLUBS2N:Y=7 
=>A T=B+l :1en 

So® 

38 

eh 

>49 


a POTTER 


N=INTLSCHEZIEZIZESCHCZIEN 
RETURH 

ENT 

FRENT" 2 
PRINT"IDATLMSKALKUNATTOHENE 


I} PRIHT:FRIHT 


PRINT"#1" WACHENTAG ETNES " 


a FRINT" nartımg" 


PRINT 


ı PRINT"#2: TAGE ZWISCHEN" 


PRINT” ZWEI DATEN" 

PRINT 

FRINTORSFTFIAGENF BER“ 
FRIMT:FRIMT: PRINT:PFINT"E ENDE" 


E PRINT:PRINT:'PRINT 
PRINT"SRITTE NAFHLEH STE ig" 

3 BETAL: TFOgG=""TUENEAS 

AM TFAg="NTHEH austria 

= ee a: 


De dp 25 7 u Ein L m 


TFAS="ENTHEN GaToEsS 
GoTo Fer 
PRINT" PRINT: ZU PRINT 


PRINT:PRINT:PPINT 
PRINT"PRAGRAMM NITEN REERDETT" 
PETHT: PRTHT:PRTHT 


A PRTUTITEM 


FnPA-1TNIARR 
PNEATA 


Das Programm Primzahlen braucht von I - 
1000 auf dem VC 20 rund 7 Sekunden ohne 
Ausgabe. 


Timo Gerbes 


8 REM "PRIM" 


18 N=1000:DIM RACN):FOR I=2 TO SGRCNI:IFRZCII=8 THEN FOR J=I#1 TO N STEP I:RACI 


=]:NEXT 
28 NEXT:FOR Is2 TO N:IFAACID=Q THEN PRINT I 
38 NEXT 
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Das Abstand 
und den Winkel von 2 Punkten. die durch 
ihre Lage in der X- und Y-Achse bestimmt 
sind. 


Programm errechnet Ihnen den 


E.Saller 


A PAKEAER7A, AR: TEL=TIE 
2 PRINT" 

A PRINT" 

A PRINTTABLAI"W" GNSLRDADEM 
a PRINTTABEaY"E" 

1 FNEA=? rat fr 

u 

2 


mn) Ta 


} NEKTA:SNSLRDDAAA 


PRINTTARCAY" 

PRINTTaRLEYTEn 

part 

Bei! Spar Tr} ITTEN f 1 en > et 
SISLUR2ARDR 

a PRTSTTORCSITTTTEE, 

PRINTTARCTI "Pia" :onalımDamaa 


PUR lach) Welalalche 


Kal ib ai BRTHTTOnRLAN"PIN ü 


35 PRINT" MINE" 
36 FORA=11TNESTER-! 

19a PRINTTaRCAYgAg" 
1m NEXTATCOSLURZOMAR 


a PRTHTT EEE" GNSLUBDODER 


120 PRINT TMENTETENTTETEE N. (1 
122 BEST IT 1" ae N 

KA DT RT ISO TITTEN 1" > DICH TRDEIAA 
1a RoTarn a" 

1E8 TEN THEN"aA 

18 DEFFNACCMISL-ATHCHFSORL-MEMHI NIE 2) 


120" 
167 Kaya! A=li: Bel 
TIHPLTIEREL Me le 
ı INFUTIPZ Ku "R,BHZEA VOR 
a Li 
FerNerrarsnen 
TERSAARHNE-ATUEHF-AANNTIIDR 
ı IFT/ESLTHENFRACNTN22R 
219 F=FNACCC/E) 
a IFOSDTHENF=-F 
F=F+SGNCF)#. 095 
232 F=INT(FX1900+,55/1209 
FeIMEE Ss SERREVaBEn 


ZELL HN TES 


a PRINT"TPL van ut," m; 
a BRINT"FP2 Ku" 2, "rn 1 
A PRIHTF FAME" m 
Ra ERTHTITNEEN m 
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r BRTHTIARTENCH EIME PECHMUMG TR 

A PRrkurn an"; 

4 POKE2ZA4,A 

3 GETME: TFA£=""TMENS?O 

A PRINTMFE: "a" POKE2NA. a: FOPM= 
{T11409: NEXT 

san BETNTIM 

a TFA£="T"THEHPOKE2AM, 1: TD=A!GOTM? 

aA TFn&="N"THENTAAM 

sim PRINT"TIP:SNT05SA 

A PNKEDMA, 1 

A ERAruTergn 

A PRTETI WER TeHn ne Bin): Bd-1n-1 Ui 

ERTHTTEETTERIHI-TTME © 9"; 

A Hi$=LEFTELTIF: 22 

A MIE=MIDELTIE.3,20 

StF=RIGHTSLTIE:2) 

NafalEFTEITER, O5 

% VE EN 

ale 2 RIGHTELTER, 2) 


HO=URL CHOR MD=WALTMOEN SOUL LSDE) 
RU UN MISMT MICHI -2I 
A HE=OTPELURN MAS-STREMIN:SE=STPELST) 
A HAE=RIGHTECH3E, 2) MAE=RICHTEEMAR. DI: 
SIE-PICHTFLSRE,2) 
5 TREUE" 2 N4Magyn e "4,292 
1152 PRIHTTRE:END 
araad FORKR=1TN1FA:HEXT:PETURN 


ze=mennel ill 

ESASR BUN TN%W2S TNEHTTUERZAHTMTN 
PRTAITGRERRNK ZA EOHTGÖSLIRON IGOSLURON 
ETOLYARUNDY/ 


MANS THNITE 


19532. LLELLLELELLLLLLL bBbBblERl>lelslbtslsietälet bla. 
ILUZILEBLILELELLELLLEBBEBBBEREIDESSEISIe it 
LELELEREREREERLBET DEE spater ia Nr! 
LILLEILLELLLLEBEREPERELEBBBBSFRIKEIREENS 
KELELERELEREREUEBEELEL EEE EEBRIEIE 
LELRLLLLELLELLISGE BBBeISISIEL EL EL [Sfetrtaglete 

a ELTERN IDEE 
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Bei diesem Intelligenztest wird Ihr Allge- 
meinwissen und logisches Denken geprüft. 
Wenn Sie das Programm laden und starten, 
erscheint zuerst eine Menümarke. 

Zur Lösung einer bestimmten Aufgabengruppe 
tippen Sie nur den Codebuchstaben ein. 

Sie können die Aufgaben in der angegebenen 
Reihenfolge Lösen oder durcheinander. 


SPRACHE 1 

Geben Sie für jeden Aufgabenblock die 
Nummer des Wortes ein. das seiner Bedeu- 
tung nach dem ersten Wort in der Reihe am 
ähnlichsten ist. 

Zum Beispiel: Sessel, 
Bett. Schrank = 4 


Tisch. Bank. Stuhl. 


SPRACHE 2 

In jedem der Sätze wurden zwei Worte ver- 
tauscht. 

Nennen Sie die Nummern der beiden Worte. 
Zum Beispiel: Hut trägt einen Heinz = 1,4 


SPRACHE 3 
Vervollständigen Sie die Analogien. indem 
Sie jeweils das Wort eingeben. das sich 


zum dritten Wort der Reihe verhält wie das 
Zweite zum ersten. 
Zum Beispiel: Mensch-Arme Vogel-? = Flügel 


1A PRINT"T' 

za PRINT"M9  IMTELLIGENZTESTE" 
Sa PRINT:PRINT"A: SPRACHE 1" 
4a FRINT"B: SPRACHE 2 

a PRIHT"L: SPRACHE 3 

&8 PRINT"E: RECHNEN 1 

ra PRINT"F: RECHNEN 2 

Sa PRINT"H: LOGIK 

85 PRINT:PRINT"%: AUSWERTUNG 
865 PRINT"Y: ENDE" 


938 PRINT"MMENSBITTE HAEHLEN SITE !m" 
180 GETAF: IFAF=""THENIAR 

191 IFAt="A"THENIERR 

1a2 IFA$="B"THENZRAR 

103 IFAF="C"THENSRAR 

1m4 IFR$="E"THEN4OAR 

189 IFAF="F"THEHSBAR 

1a6 IFAF="H"THENGAOR 

1a? IFAF="M"THENFEOO 

18 IFAF="T"THENPRINT"TI' END 
120 GOTO108 

aaa PRINT"I 9 SPRACHE 1m" 
1801 PRINT"NENNEN SIE IMMER DIE 
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HUMMER DES WORTES. 


RECHNEN 1 

Geben Sie jeweils die Zahl ein. mit der 
sich die Reihe logisch fortsetzen läßt. 
Zum Beispiel: 246? =3 


RECHNEN 2 
Jede Doppelreihe besteht aus drei Zahlen- 
paaren, die alle im gleichen Verhältnis 
zueinander stehen. Ermitteln Sie dieses 
Verhältnis,und geben Sie die fehlende Zahl 
in den VC 20 ein. 
Zum Beispiel: 134 

2 ad 


LOGIK 

Geben Sie jeweils den Buchstaben ein. mit 
dem sich die Reihe logisch fortsetzen läßt 
Zum Beispiel: AABBCCD? =D 


AUSWERTUNG 

Das Auswertungs-Programm können Sie abru- 
fen. sobald Sie von einer Problemstellung 
alle Aufgabenblöcke gelöst haben. (A+B+C 
oder D+F). Natürlich ist der Test erst 
vollständig. wenn Sie alle sechs Aufgaben- 
blöcke gelöst haben. 


DAS DEM ERSTEN"; 
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1892 FRINT" AM REHNLICHSTEN IST." 


1483 PRINT:PRINT"SCHNELL. WEITER, HEFTIG. GESCHWIND; KRAEFTIG, VORWAERTS 


= EIN 8 

1aa4 GETBS:IFE$=""THENLOD4 

1gaS5 IFBF="4"THENA=R+1 

1206 PRINT"ANFANGEN, BEGINNEN, LERNEN, WIEDERHOLEN": PRINT 
1297 GETBF: IFB$=""THEN1DA? 

1085 IFB$="Z2"THENA=A+1 

1299 PRINT"FINSTERNIS, KAELTE, DUNKELHEIT, DREMMERUNG" FRIMT 
181d GETB$£: IFB$=""THENIELO 

ı1a1l1 IFBS="3"THENA=A+1 

1212 PRINT"MARECHTIG, HEFTIG, FOH,GEMALTIG, HERRLICH" PRINT 
1613 GETB$: IFBF=""THEN1G13 

1914 IFRF="4"THENA=R+1 

1815 PRINT"VERNUENFTIG, DEUTLICH: SORGFRELTIG, WILLIG, VERSTRENDIG":PRINT 
1816 GETB$: IFB£=""THEN1@1#6 

1017 IFBS="5"THENA=A+1 

1818 GOTO1@ 

2088 PRINT"T' 

2aRj FRINT"IN JEDEM SATZ WURDEN ZWEI WDERTER VERTALISCHT." 
2262 PRINT"GEBEN SIE DIE NUMMERN DER BEIDEN WOERTER" 

2083 PRINT:PRINT"HUT TRREGT EINEN HANS = 1/4" 

2aa4 FRINT:PRINT"EIN IST LUFT GAS" 

2085 INPUTRE: IFR$="173"THENA=A+1 

2a66 PRINT:PRINT"DREI DFEIECKE HAT JEBES :SERTERN" 

2097 INPUTAF: IFRF=" 1,74" THENA=A+1 

2aas PRINT:PRINT"DAS BUNTEN PFLUECKT DER MUTTER EINEN KIND STRAUSS" 
2229 INPUTAF: IFA$="277"THENA=SA+1 j 

2a19 IFR>FTHEHA=R+2 

2a11 GOTO1R 

aaa PRINT"F4 SPRACHE 3" 

3a91 PRINT: PRINT"YERVOLLSTRENDIGEN SIE DIE ANALOGIEN" 

3aa2 PRINT:FRIHT"MENSCH - ARME" 

saa3 PRINT"VOGEL - 'FLUEGEL®" 

aaR4 FRINT:PRINT"OFEN - WRERME" 

3845 INPUT"LAMPE - ";AF: IFA$="LICHT"THENA=A+1 

39a6 PRINT'PRINT"ZEIT - UHR" 

3297 INPLT"MAERME - ";A$: IFRF="THERMOMETER"THENR=A+1 

3808 PRINT:PRINT"HAUS - ZIMMER" 

3aqa9 IHPUT"BUCH - "SAF: IFAF="SEITEN"THENA=SA+1 

aata PRINT:PRINT"HEER — SOLDATEN" 

=a11 IMPUT"VEREIN - "SA&: IFAF="MITGLIEN"THENA=A+1 

3912 PRINT:PRINT"WUNDE - MESSER" 

3813 IMPUT"BEWEGUHG - ";A$: IFAF="KRAFT"THENA=A+1 

3814 GOTO1Q 

4esed PRINT"2 ZAHLEN 1m" 

4a21 FRINT:PRINT"GEEEN SIE IMMER DIE ZAHL, MIT DER SICH DIEREIHE FORTSETZEN 
HE=S>T. 

HE REILHITAS ;= 

4523 INPUTLU: IFU=@THENB=B+1 

ABA SERENTII, = 4 - 9 = IE" 

4945 INPUTU: IFU=Z2STHENE=B+1 

4905 :BREHT" Ser Free 

4807 INPUTL: TFL=12THENB=B+1 

4aas PRINT'"2 - 4-8 - 16" 

4209 INPUTU: IFU=32THENB=B+1 

Sara JPREHT OT. - 277 

4211 INPUTU: IFU=LTHENR=B+1 
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4alz GATIIE 

saad PRIHT"FI ZAHLEN 2m" 

sat PRINT:FRINT" JEDE DOFPELREIHE BE- 
STEHT AUS 3 ZAHLEN.DIERLLE IM SELRBEN 
"VERHALTNIS STEHEN" 


=aa2 PRINT:PRINT"3 - 3 - 1" 
saa3 IMPUT"S - 7 — "SU: IFLU=3THENB=B+I1 
saa4 PRINT:PRINT"S - 3 - 2" 
saa= IMPUT"S - 2 - "SU: IFU=S1THENB=B+1 
selser lehren Er 
saar? INPUT"S - 8 - "SL: IFU=14THENB=B+ 


Saas PRENTSPRIHT" TS 18" 
saag INPUT" 4 - 1 "SU: IFU=6THENB=B+1 
sala PRIHT PRINT" 3 — 7 = 4" 
INPUT"-2 - 2 - "SU: IFU=-1THENB=B+1 
salz GOTO1® 
aaa FRINT"TI LOGIKE" 
eda1l PRIHT:PRINT"SETZEN SIE DIE 
PEIHEH FORT" 
eBa2 FRINT:PRINT"AAWBATEHT" 
saa3 INPLITUE: TFUF="D"THENC=CH 
KARd4 FRINT:FRINT"FEDER" 
gaRS INPUTUFE: IFUF="A"THENC=SCH 
Kaas PRINT:PRINT"DYCHRX" 
INPUTLIF: IFÜIE="A"THENCSCH 
6208 PRINT: PRINT"LOMPN" 
8899 INPUTUE: IFUF="O"THENC=CH 
8818 PRINT: PRINT"ADGBEHCF" 
salı INPUTUE: TFUS="T"THENC=CH 


ea12 G0TO1E 

‚aaa PRINT"I AUSWERTUNG" 

Fagl PRIHT:FRINT"SSSFRACHLICHE INTELLI.E" 
rAR2 PRIHT 

’aQ3 IFA>13STHENPRINT"GENIAL":GOTO7O1A 
ra@4 IFRFLLTHENPRINT"SEHR HOCH": GOTI7R1A 


as IFA>FTHENPRINT"HOCH" :GOTO7218 

raas IFA>7THENPRINT" DURCHSCHNITT" :G0TO7A1R 
7887 IFR>STHENPRINT"GERING"'SOTOTOLO 

aas FRINT"EXTREM GERING" 
ra18 FRINT:PRINT"SPRECHNER. 
PRINT 

rai2 IFB>STHENPRINT"GENIAL":GOTO7@2A 

”a13 IFRFSTHENPRINT"SEHR HOCH" :GOTOFA2A 
7814 IFR>4THENPRINT"HICH" :GOTO7R2A 

F81S IFBFZTHEHFRINT"GERING":GOTO?7Q2@ 

r@l& PRINT"EATREM GERING" 

raza E=A+B+C 

ra3a PRIHT:PRINT"SGESAMTINTELLIGENZE" PRINT 
IFE>ZSTHENPRINT"GENIAL" :GOT07999 

’a32 IFESZSTHENFRINT"SEHR HOCH" :GOT07959 
7833 IFE>ZITHENPRINT"HOCH" : GOTO7OSE 

7a34 IFE>PLATHEHFRINT"DURCHSCHNITT" :GOTO7RE 3 
7933 IFEFRTHENPRINT"GERING" :GOTO7@SB 

rA36 PRINT"EXTEM GERING" 

rosa FRINT"MENSIWEITER Tem" 

ass SETYE: IFYE=""THENFOSS 


ydd em 1 = Bu 205 


INTELLIGENZE" 


Teil- 
Berge. Am 


Der Geo-Test besteht aus den drei 


testen: Hauptstädte. Flüsse. 
Ende jedes Teiltestes bekommen Sie eine 
Auswertung für diesen Bereich. Wollen Sie 
Ihre Lösungen mit denen des VC 20 verglei- 
chen. so wählen Sie die Funktion "L" an. 


1 DIMAEe3.19) 


Dann müssen Sie sich für einen Themenbe- 
reich entscheiden. Wollen Sie einen 
Lösungsbereich sehen, so müssen Sie vom 
Menü wieder mit "L" anfangen. 


E.Saller 


1a DATA"TSLAND" . "REYEIAVIK" "LIECHTENSTEIN". "VYADUZ"."TUERKEI" "ANKARA" 
12 DATA" IRAK", "BAGDAD". "KENIA", "HATRORT" "USA", "WASHINGTON D.C." 
14 DATR"ARGENTINTEN" . "BUENOS AIRES", "AUSTPALTEN" . "CANBERPA" 


15 DATA"HAHAT" . "HOHOLLLU" "BAHAMAS". "NASSAL" 


ISDN TMERTEENEER" „ "MISSISSTPPT". "GOLF YOM MERTEO" „URMAaoHAg! „UATERNTTSEH 


ER DZERM" 


za DATA"WOLGA", "KASPISCHES MEER". "DONAU", "SCHWARZES MEER" 

22 DATA"MEMEL" "OSTSEE" "IHM", "DONAU", "ORINOKO" , "ATLANTISCHER DZEAN”" 
24 DATA"HUDSON" , "ATLANTISCHER OZEAN". "THEMSE" , "MORTDSEE" 

26 DATA"MAHTBLANT" "4", "MT EVEREST" "9", "MATTERHORN" "4, "K2"8" 
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28 DATA"GROSSGLOCKNER" "3", "AETNA" "3", 
"OLYMP®, Wa" TTBENDEESTEIN ART" 

an TATA"KIRO nt rallerlllr n WER, „ 1 n 

zad PRINT" 

2a5 PRIMNT"EIFBERESGENGRAFPHIEN 

21a PRINT"M" 

215 PRINT" #1: HAUPTSTREDTE":PRINT 

zEu PRINT" #2: FLIESSEN" 

225 PRIMT:PRINT" #3: BERGE" PRINT 

233 PRINT"M 

248 PRINT" L : LOESUNGEH" PRINT 

245 PRINT" E : ENDE" 

259 PRINT"M" 

275 PRIMT"B BITTE HREHLEN SIE Im" 

268 GETCK: IFC$=""THEN2GR 

263 IFC#="A"THEHZAR 

eeß IFYALCCESISTHENZRA 

267 IFYALCCKIF=1THEHZ?R 

263 IFC#= "L'ORCF="E"THENZ27A 

269 GOTIZRA 

zra REM 

2sa IFCE="L"THEN?ARR 

2853 IFC$="E"THEH13AOO 

287 I=YALCCH) 

298 OH I GOTO 1080, 2088. 3989, 49ad. Saakı 

18aA PRINT" TIERRRHALUPTSTAEITE @'" 

1202 PRINT"M IMMER HAUPTSTADT" 

1Ba4 PRINT" EINGEBEN" 

1285 PRINT"M" 

1819 RESTORE:F=2 

i82@ FORG=1T019 

1929 READDE:READES 

1a4a PRINT"M':DE 

1259 FRINT 

1asa INPLTAFLI.CI 

197 IFEL=AFCL,GPTHENF=F+1 

1959 NEMTG 

1a9a GOTNSAAB 

2208 FREINT"TIABBEFLUESSE s 

ean2 FRINT"MIMMER DAS MLUENDLUNGS-" 


2aa4 PRINT"GEWAESSER EINGEBEN" :PRINT"M" 
2819 FESTORE:F=@ 

2812 G0SUB14598 

2028 FORG=1T019 

229 READTE:READEE 

2a4a PRINT"M':TDE 

2asa PRINT 

zaea INPUTAEL2,G 

zara IFEF=AF(C2,GITHENF=F+1 

zasa ee 

aa PRINT" TARBRBERGE g" 

2 PRINT"MIMMER DIE HOEHE" 

4 PRINT"IH TAUSEND METER ANGEBEN" 
& FRIMT"SIMMER ABRUNDEN Ta": PRIHT"M" 
a RESTORE:F=A 
2 GASUIRI14SER: EOSUB 145C0 
a FORZ=ITOIE 


DIDI D DD 


Eine P: 1° Ch 


III MM 


Wissenschaft 


READER PREPDIER 

Peimam ;D® 

FRINT 

IHPUTAFC3,G) 
TIFE$=A$L3.G>THENF=F+1 
NEATG 

ENTIERAER 

PRINT" 

PRINT" SPUNKTERLSWERTUNGE" 
FRINT"BM SIE ERREICHTEN" SF 
PRINT"MM PLINKTE" 
IFFZZTHENESRO 
TFFZATHENESOR 
IFFLETHENEAAR 
IFFZSTHENS229 
IFFZ1ATHENEZER 


3 PRINT: GOTOS1AR 


PRINT" MRRFSSENTALM" :GOTO67RA 
&20@ PRINT"MEEREISEHR GUT a" :C0TOETaR 
E09 PRIMTTEEBF LT B" :COTDETAR 
S4aA FRINT"KIBERNMURCHSCHNITT | m" ENTOETan 
E5aR PPIHT"MERFE GEPIHS 1 W":G0Tocran 
EEAR PPTNTTIMBREENTREM SCHLECHTE" GNTOS7AR 
E7OR PRINT"MMMMEITTE EIHE TASTE m" 
SFIM BET.IS:IF.IE=""THENG7IR 
sr2a GOTO2AR 
7899 PRINT" 
FaLa PRINT"I  LOESUHGENE" PRINT" MI" 
raı2 PRINT" #1: HALPTSTAENTE" 
Fa14 PRINT" 2: FLUESSE" 
7O16 PRINT" 2: BERGE" 
raaa BETK:IFK=ATHENFE2A 
7940 ON K ENTORAAA. amaa, Lancıa 
Sage PRIMT TEN" 
ent RESTORE 
ag2a FORG=1TN1R 
sa3@ FERNDF:READES 
8925 PRINT" 
sa4a PRINTDE:PFINT 
aasa PRINT"DINLZA Sm" :PRIHT 
saca PRINTEE 
8878 PRINT" IHRE LOESUNGE" PRINT 
au8A PRINTASLL.G) 
saam PRINT"MMEITER ZH" 
2932 GETME: IFME=""TUENAS2 
3997 TFME="NTHENDAR 
s1a0 NEYTS 
g200 FOTO2ERA 
aaaa PRINT"IEM" 
3918 RESTORE 
Sa15 GOSUB1450B 
2828 FORG=1T01R 
3039 REANDE:READEF 
3935 PRINT"TTM" 
Sa4R PRIHTIE:PRINT 
3959 PRINT"MIRCZEO Sm" :PRINT 
SAGA PRINTES 
AR7a PRINT" IHRE LOESUNGS"ERIKT 
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Sası PRINTRFL2.GH 1aA4R PRIHTDE:PRINT 

aaa FRTET SIE Tiere STR 1250 FRINTBIICZO SW" FRTMT 
aa32 GETMF: IFM$=""THENSAS2 janeza PRINTEE 

aaa3 TFME="N"THEHZAR 1275 PRINT" THRE LOESUNGE" PRINT 
9129 NEATS 1nasa FRINTAELI,GN 

3zaa GOTNZAA 1a2a2G PRINT"MMMEITER I/N" 
12aaa FRINT"IIMM" 12932 GETME: TFME=""THEHSOPZ 
1am19 RESTORE 153229 EHD 

12915 SOSUR1ATER: SASUPLIIGA 14502 FORG=1TDZR 

ıma2a FORG=1TO12 45a READRE 

taa3a READDE: READER 14709 HEXTG 

12235 PRINT" 14302 PETUFRH 


Bitte ein Element eingeben. 


E.Saller 


FRIHT"T" :PRINTCHREC 143: POKEIE979, 30 
3 GATIFAAR 
a NIMFECLENCFARI+Z 
i FORIISITOZ 
A FORA=1TOLENEFAF 
am FELA> =MIDECFAF,A.1) 
& IFF£CAD="C"THENBSA 
43 IFFFCAN=" N" THEHE-A 
44 TFYALCFECANISAAHDVALCFECAR-INDDATHENFECA-1ISFECA-1I+HFECAYFECAI=" " 
45 IFFSEAI="RA"ANDVALEFELA-LII>ATHENFECA-LISFECA-LIHFECAN:FECAd=" " 
a TFASCLFELASSDRAANDASECFFEANILRLTHENFECA-LI=SFFCA-LIHFECAI FEiAde"" 
ER HEKTAR 
&1 NEATII 
ra GOSLBFaAAA 
aa FORA=ITOLEHCFAR) 
1at IFCAI=CRITHENFAO 
109 IFeFFER?>=""THENZ2OA 
11a TFASCEFFLANILZLSANDASCEFFERIIPLAZTHENGNSURLOAA: SUI=SL+22:GOTN2AA 
119 TFWALEFSCAFIDATHENSU=SLHLCVALCFECAYI-1IMZZI : GOTD2AQ 
129 IFCFECANd=""THEN2OO 
2am NEKTA 
239 PRINT"TIER-QLEKLIELATOMMASSE" 
ee u 
25a PRIMT"MELNEMEL m ";FRt 
239 TFSLL=OTHENSBORR 
2EA PRINTTMEROL m "SU 
27a GATOSRAag 
aaa D=B 
a1 B=R+1 
3a5 IFLFFCRII=""THENAAN 
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A1a IFASCEFSCRIYCZLOANDASCCFECRND>1A2THENGOSUB2AAA: S1=81+22:C0T042R 
215 TFVALSFECRYDIATHENSISSLFCCVALTFFERII-13K22)::GOTDAMM 
220 IFLFSCR) Je" "THENAAM 

ama TFARBSCRILABSCLITHENSAI 

419 IFVALCFECR+LIIPATHENSI=SIKYALCFSCB+1ID:B=B+1 

420 SU=SL4S1:A=B+1:C0TO1AS 

taam REM 

tat PESTOPE 

1922 PEAD?2+:PEANZZ 

1925 1F728="ERROR"THENU=RGOTOSARR 

1aam IFZZE=FECA>THENPETURH 

1m49 GNTO1R28 

am REM 

>91@ RESTORE 

2029 REANZZS:REANZZ 

2a2= IF27$="ERROP"THEHL=R:CNTNEAAR 

2a3a IFZZE=FECRITHENPETURN 

2042 GNTO2A2A 

saam DATA" 1",1,. 079, "L1",6.94M1, "A" ,22,98977,"7", 39,083 
Sant DATA"_R" 95.4679, "5", 132, 2054, "_P" 223 

sata DATA" IE",9,M1218, "\G",24,305,"R" 49.08. "OR" ,87.62,"1A",137,33, "A", 226.025 


4 

sa2a DATA"eE" 44.9559," 1",29,90959. "LA", 138. 9055, "AC",227 
saza DATA"II",47.99,"4R".,91.22," 1F".178.49, "U". 260 
saga DATA"".SA.2414.",/R",92,.8R64, "1A", 12,479 
Sarg DATA" —R",S1. 996, "20" ,95.94,"0",183.85 

sasR DATA"=H" 4. 9389, "10",97,"_E", 186.207 

“979. DAR: —E" „28. 84 "U „101, 02, 2052, 190,2 

aaa NATA"-U" 8.9332," H",192,9055, ",R",192,.22 
saaa DATA” /T".38.70,"70D",185,.4,"77",195.09 

=ıaa DATA"ÄI" 62,746. "96", 107,868, "All", 198, 9665 
z11A DATA"AN".65.39."-0”,112.41." 16",208.59 


sı2a NATA"I", 10,81. "ML" ,26.98194,"1A",69,72."-H",114.82: "1L",294.37 

"138 DATA"-",12.A11."#1",28.0833. "1E",72.39, "00" ,118.69,"B",207.2 

si4a DATA "".14.0967,"71",30.9738, "a2" .,74,.0218."0B".121.75,"11".208.9804 
159 DATA'T" ERSTE 2A WER IT 3. IE, "IE". 12ER 23 

sie DATA"_",19.9984,"-L".,39,.453, "IR",79,904," ",126.9945,'MT",210 


5170 DATA" JE".4.MA26, "E" 20.179, "AP", 39,948, "/R",83.80, "#E", 131.30," N",222 
5139 DATA"—E", 149. 12, "P", 149, 9077, ",0",144.24. "10", 145. "0", 159.4, "10", 151.96 
Sad DATA"IN" 157.29. "1B",159,9254,"%",162.59," 10", 164, 9394, "R" 167.26, "IM" 16 
8,9342 

S2aa DATA" IB",173.94, "LU". 174.97 

310 DATA"IH".222.0391."9".231.0359." "238.029, ",P",237.0482, "1", 244, "aM" 243 
228 DATA"M" ‚247, " IK" .247,"-6" 291,78" ,254."_M" 287 

5239 DATA"ND" 258, "0" ,255, "LP", 268 

SSaA DATA"ERROR" 1 

999 PEM 


ran FORA=ITNLENEFOF) 

ramı IFFECA)=""THEN?O2R 

ara TFASCLFECAIDISAANDASCEFFCAIICHTTHEN?AFA 
raza NEXTA 

7925 RETURN 

raza PRINT"MORMEL 4"; FA 

"a4B PRINT"BIST LINZULRESSIG II" 

7839 PRINT"TLEMENTT IL FEASPEFEAOIFF 
rasa GOATIOARA 

sana PRINT"MRAS "LEMENHT EFF" IST IN" 
aa1a FRINT"MEINEM "ERITODENSYTSTEM NICHT ENTHALTEN 11119 
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GOTOIBAR 

PRINT" MATHDE":CLR 
TNPUTTORRLORMEL : m": FO$ 
IFFAg=""THEHSALA 


\D DD ıD CO 
DD 
DD 


+0 


saza GNTI2E 

zaaad PRIMT"MMLORMEL IST NICHT 
aaaaa TFRSCLLEFTELFAF, 12) COS7THEN4OR1EO 
aaaas PETURN 

48818 PRIHT"M-ORMEL. IST NICHT 


IFLEFT££FOS, 23="EN"ORLEFTECFRE. 23=""N"THENEND 
KNFPEKT FORMULTERTIM":GOTOIADD 


KORREKT 119": GOT02898 


Mit diesem Programm wird das Lernen zum 
Spiel. Um sich überhaupt abfragen lassen 
zu können, müssen Sie zuerst die entspre- 
chenden Fächer definieren. Dies geschieht 
mit der Funktion 1 vom Menüprogramm. Nun 
können Sie mit der Funktion 2 Fragen und 
Antworten festlegen. Wenn Sie keine Fragen 
für dieses Fach mehr festlegen wollen, 
drücken Sie RETURN. Die Eingabefelder 


12 CLOSEL:CPEN1.8.15 

3a POKE36879, 26 

1820 PRINT" TER TEACHER Baar" 
lb. Yoga 2 zer 
123 FRINT"MEM : NEUES FACH AHLEGEN" 
134 PEINT"MSZ : FRAGEN HINZUFUEGEN" 
14a FRINT"MES : ABFRAGEN" 

145 PRINT"ME : ENDE" 

158 PRINT"MEERITTE WAEHLEN SIE 'e" 
158 FRINT" ";71=1:G0SUB590 
1655 IFr2$="E" THENPRINT"T" :CLOSE1 CLOSE2:END 
179 K=VALCY2E) 

189 ONKGOTDZAAR. S0A9. 11Mad 

198 RUH 

sad YzE="":FORT4SLTOVI 

681 PRINT'MA m@"; 

&B2 NEXT'r4 

643 FORYTA=ITOYI 

584 PRINT"; 

595 HEXT'Y4 

686 FORY4=1TOYI 

“a7 GOSLREI? 

689 IFASCCFIFI=13ITHENELS 

81a IFASCCY2FI=133THENG2R 

Kl Fasz r2gHr3E 

612 NEXTYA 

513 FORY4=LENCVZEITOTI 
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können mit der f1-Taste gelöscht werden. 


Mit der Funktion 3 können Sie sich jetzt | 

abfragen lassen. Wenn Sie sich ab Satz 1 

abfragen lassen. müssen Sie auf die Frage 

"START 1" unbedingt "START 2" antworten. 

Am besten ist es. Sie lassen sich immer 

erst ab Frage 2 ausfragen. Nach Beenden 

des Abfragens folgt das Auswertungspro- 

gramm. 

614 Vag=YVag:PRINT" "; 

615 NEXTY4 

616 RETURH 

617 GETTSF: IFF3E=""THENGI? 

618 IFASCCYIFI<CHLZANDASCEYIFIS 
>133THENPRINTY3F; 

513 RETURN 

628 IFLENCY2F)=BTHENGAA 


521 
622 


623 


119 
1118 
1129 
1138 
2aa8 
2218 
2020 
2934 
za4R 
2047 
2050 
PAST) 
ara 
2as2 
Rad 
ala 


FOR'T4=1TOLENCYIE) 
FRINT"I; 
NEXTY4: GOTDEAR 

FRINT"MINEITER I/He" 

GETO£: IFOF=""THENL110 
IFOg="H"THENRUN 

RETLIRN 

PRINT" I" 

PRINT"MFACH: "::171=15:G0SUR5QQ 
Flt=72g+",S,W" 
OPENZ.8.9, F1# 
GOSLIEI16AAQ 
PRIMT#2, "START 
PRINT#Z. "START 
CLOSE2 
GASLBIERAA 
PRINT" MEN" :GOSLUIB11RA:RUM 
PRINT" 
PRINT"IFACH! 


1"CHRECIH: 
2" :CHR$£6135: 


",:71=15:G0SURRAR 


Wissenschaft 


PRINT" MAMI" : GOSLE11OR 

Fit=Tr28+",5,R' 

DPEN2.S,8.F1# 

a PRINT" TIMERBFRAGE : 

a4 71=95:GOSUBEAR 
=Q42 FRe=T2$ 

2945 IFr2$=""THEHCLOSEZ:RUM 
0465 PRINT 

5839 PRINT"IMANTHORT ' 

sasa 71=89:GOSUBSAN 
or LEF=TZF 

sgsa PRINTRE.FRESCHRECOLIISUEFSCHRFCLSD: 

Se9a GOSURLSAHR 

1g@ CLISEE:GOTOSQES 
i12aA PRINT"T' 

11819 PRINTIMFACH! %: 
11m2a FiFeWast",ZuR" 
11834 PRINT"IAR SATZ!" :Y1=6: GOSUBGAR: PRINT 
11a SI=WALLTZE) 

11958 IFS1{=9THEN1120O 
11968 FRIMT"MHZAHL: "5: Pi=6 
11969 SE=YALCY2E) 

1197@ IFS2L=ATHEH11Q10 
11838 OPENZ:98,8. FF 

11a90 REM IFST=G4THENIZRRR 
11893 INPUT#2, FRE 

11119 INPUT#Z, LES 
M129,2°2#1 

11139 IFZ>=S1THEN11208 

11142 GOTO11998 

11288 GOSUB160A8 

11219 PRINT"TFRAGE" 

1122@ PRINT"M"FF$ 


Salz 

saza 

sa25 
a3 


gi" 


m) 
2) 


a" 


: GOSUBEDE:PRIMT 


Das Programm arbeitet auf der 
dieses Pseudo-Dreieckes. 


Grundlage 


E.Saller 


BEFFNEDERY=COSC (n/237C307Y h 


3 


Kann 
NEECHETIERTH en? 
GaTIsBaae 

a ul, n ae ” S2=B:53-C'Wi=D 


VeEARFEND 


nis ii 


11238 
11240 
11250 
1126R 
11278 
11238 


11250 
12806 
12018 
12424 
12930 
12049 
12050 
12020 
12970 
12498 
15908 
12028 
158.38 
1E040 
16198 
15118 
16129 
16138 
16148 
16158 
16168 


FRINT"MANTHORT FM" 

Y1=3°2: S0SUB6O0 

LiF=72$ 
IFLIF=UIEFTHENR=R+1:21=21+1 
IFLISCHUEFTHENFSFHLl Z1=Z1+1:PRIHT 
IFLISFTIUEFTHENPRINT"TTTTITTTLOESUNG: M" 
:PRINTUEF: GNSUB1100 
IFZ1£S2THEN11098 
PRINT"":CLOSE2 
PRINT"MWON",S2; "WERBEN" 
PRINT"IIRHATTEN STE :" 

FRINMT"M"SRS "RICHTIG" 

PRINT"M" FI "FALSCH" 

PRINT"WMDAS SIND IN @" 
PRINTTAR(S?:R#109/52 
GOSUR11AR 

RUH 

M=A 

INPUT#1.U1, 01, U2.03 
IFU1>LTHEHI1G1AR 
IFMZPLTHEHRETURN 

PRINT" TMEk## ERROR Se" 

PRINT"MEET".ST 

PRINT"MHR. "U 

PRINTTES"UIE 

FRINT"MINSTRACH" LE 

PRINT"SEKTOR" ‚13 

PRINT" ME" : GOSUR11E9 

ELOSEI RUN 

OFEH2,8,8, "ENG 1.5.R" 


INPUT#2, A: PRINTA? 
a IFST=S4THENELNSEZ:END 
ENTA3RILR 


Seite1{S1) 


Wissenschaft 


A:PRINT"S2 YATH,".vne 
A:PRINTTEA wen," un 
BRTHTTMAN un 
S:s0To2aaa aRaf :PRINTHOR SE 

WEI, H1.H? "9,2, S2-AUt=END=F S1O0 yazlIR AISUMELRANPPINTAIAN. une 

x BELA: PRINTOHL"UC$ 
KA=H2SOSURSIARRTPRINT"HE" UCE 

A SA=H2:COSLIBELAAA:PRINT"HR" UTE 
I=FANSUREIAAR PRINT vet 

vgeil ENZIREIAAN EDTNTII ung 


USTCENSEHRTENN 
Ge9HFHSTIEN/CHETNSCANSURTAA 


_ 

a 

EN Ban Be 
—_ 


19 © ea PRINTTWERMACH EINE RECHNUMG ug" 
za S 152 PRIMT" serm 

ii PRINT" mal; :POWETIA.N 
22 BETUE!TEUESUNTHENTIES 

oa DiIEeR Pnkzoma.f 


HCHD-AHRIFDFB/TN 2178 TEYg=" TOTHEHRUM 


ER # = 


230 N-ENACLERKR+ 


24n GNSUREAM 2172 [FYg="W"THENPRIHT"N" POKES6ST9,AA:EHD 
259 Feisa-N-E 174 GOTn21es 
269 SNEURFEA aaa PRINT 
272 On anal PRIHTUMBERECHMUNG NACH NEM 
239 19-9 PYTARAPREISCHEN LEHRSATZ NICHT 
258 WI=E'W2- MOTRLIOH" 
210 F=3C9T02aR 3992 PRINT"MERRITTE WARTEN I Im" 
San M=SOPCRUT-KBACHFNDDEN)) RETURN 3Ea5 FORL=1TDEAAA: NEXT RETURN 
E39 E=FNADLCARAHCKO-BERI/R/AALT RETURN sama FRINT"MIMREIECK IST MIT DIESENWERTEN 
Fan S=PACHFNELCDNF2:RETLN NICHT ZU KONSTRUTEREN 111" 
1A9G PRIHTITIST EIN WINKEL 9a GRAD" sag2 PRINT"WIMIE SUMME DEP KATHETENMUSS > 
LaR2 PRINT TH" SEIN ALS DIE  HWPATHEHUSE I 11" 
1a93 PRINT" Mm ai"; :POKE2MA,M 5993 PRTNTTMERTTTE HARTEN" ENPL=-LTOAIAR: 
1294 GETOE: IFDE="THENG OO HEXT RUN 
1995 TFNE=" TNTHENPAFEDAA. 1:CNTOINSA FARAa PRINT" :POKE36STS, 
Lane TENES"NTHENPOKEINA.1GOSURSORA:RUN  EAAIA PRINT"M AITPISONONETETEME" 
AR? aaTatamd sga2a FRINT"#1 2 SIDES + INCLUDEN 
1250 31=2: INPUT"TIKATHETE A";S1 AHGLE GIYEN" 
1952 32=9: IMPLT"WKATHETE R" is? EHA2Q PRINT"KEZ 2 ANGLES +INCLUDEN 
1953 92=9: INPLT"HUPNTHENLSE" 53 STE GIVER" 
1854 TFSLCMAAHDSDCIOANDSSCHATHENIERR E2A4@ PRINT"ME? 3 SIDE GTWEN" 
{935 IFSLIAANNSSCHATHEHSI-SORCHIESIHGTKEN Cana PRINTUMM > SITE GIVE + 1 ANGLE ag" 
-SOTOT ARE Gage PRINTTmE ENDEN 
LATE TERLEIDANNSSIATHENSISLIRLSTFOI-FIET]) AREA PRINT"MM sl"; :POKE2A4, 0 
|SATOLERA gaara GETAF: IFAF=""THENGARFO 
1999 TFSIIIAHNSICHATHENSL-SARCSIKTI-2HE2) EAOFT TFAS="ENTHENPOFE2N4.1:EHD 
:GTOLSER FIA2R PURLCAF):POKE2OM, 1 
1278 PRINT"TMNZULAESSICE WARTAPLEN 5AA3a OH A GOTO 1A, 129.220. 1ga 
IM PECHENZUGRIFF I1ı" galaa GOTOGAA7A 
1971 PRINTTEERITTE WARTEN !Ig" :FORL= E10 
[r} 


Aa IFKA>=LCIAER-1YTHENEOSURGIATM 
bu} 


1TOSGAA NEXT ! TFERLITHENANSUBEIAL! 


jar2 S1=9: INMPUT"RIRKATHETE A":21:SCTN1R52 EA HU ee I AnE I EE r E 

1399 IFS1-RIL=ESTHENSAAA FAAR2 MOE=LEFTECHOE. KB) RETURN 

1998 Peti!0=a2 ARE GATIDSR #119 PRINT"MIHYALIDN YALUE":PRINT"EXCEENS 

aaa PRTIUTIRAHTEH STEIIEH TER PRIHT-RPER":GOSUBE1ALF:RETURH 
AUSGRRE" : IMPLITSB eialt FRINT"EPRINT-AFER":PRINT" 

Sea Ne51422482 Z":PRINT"LANEST YALLE"GOSUBRIAI?F: 

zaig H1=F’1512) PETLIPH 

za2a H2=Fc92,03 FAIR TMPUTIM TRH 2 Ca ung 

2asa H3=F-t23,2N Eia14 TENNE=H TSMTTUEHRETUPH 

2949 PRIHT"T" 1915 IFKDE="DANNTHENDAON 

zasa KA=51:30EUBE1BAI:PRINT"SI KATH.",ScH Eile ENTnsiaae 


92 Commodore VC-20 Programme 


Das besteht aus 


Funk-Programm 
Teilprogrammen: 


12 Funk 1, 

. Eunkz2, 
Y Funk 3", 
n Funk 4" 

12 Funk 1 


Dies ist das Menüprogramm. daß die anderen 
Programmteile bei Bedarf nachlädt. 


12 Funk 1 

ıa PNKE36879,26 

2a PRINT"TIERKEERE MORSEN ea" 

aa PRINT'"IMI IM = ZEICHEN NUT = 

4a PRINT" MUT = CODE IN =2Z 
sa PRINT" IM = CODE UT = 2 
== PRINT"EE ENDE" 

sa PRINT'MMERIITE MAEHLEH SIE Im" 

a GETRE:IFAF=""THEHNFRA 

7a IFAF="E"THENFRINT"T" END 

rE TFASCH"L"AHDAFC>H"Z"ANDAFCH"3"THEN?O 

7? PRTHTYTISOTRETRTEIRELIN" 

78 PRIMT"SBERDTRTRTATRTENE MPFESS FETUR 
79 PRINTTMERESS FETIUR HS 

za IFAf="t"THENPRINT"SIPMLORD"SCHFECIANG" 
sa IFAF=" A" THENFRINT"AMELOAD"SCHRECI4IG" 
15a IFA$g="3" THEHRRIHTSBMELDAN"SCHFELI4IS" 
12AM PRINT"S"! EHT 

12 Funk 2 

= FOKEIS6KS?S. 200 

1a PRINT'TERT GESCHEHTNDIGCKEITE" 

11 PRINT! >25 2.P.M SWP.MMI 29 ©" 
12 PRINT 35 a 

13 FRINT'M 40 g" 

14 PRIHT"M 45 a" 

15 FRIHT"IS 59 17° 

1& FRINT'E #59 13% ?’ sa 18" 
17 FRIHT"IS 195 1 Mm Sole. 
24 FRINT"SIETTTE WAEHLEN STIER" 

am GETIE:TIFIF=""THENSS 

a 


IFTE="A"THENEG=14 
IFIF=" I THEHEG=112E 
IFIE="S"THENEG=9. 1 
IFIF="3"THENEG=S 
IFT$£="A"THEHEG=T 
H r il = u z „ THEHER=!t 
IFIS="ENTHENEG=S a 
IFI£="?"THENEG=4 


ih: 


Eine Publikation von CHIP 


Bei der Arbeit mit einem Disketten-Lauf- 
werk müssen die einzelnen Programmteile 
die obigen Programmnamen tragen. 

Bei der Arbeit mit dem Kassetten-Laufwerk 
sind die Programme Funk 2 bis Funk 4 
direkt aufzurufen. 

Bei einer Speichererweiterung von 8K 
können die vier Programme auch auf einmal 
geladen werden. 


E.Saller 


: CODE" 
EICHEN" 
EICHEN" 


H n 
FUNK 2" ;CHRECIHE",9":GOTOL2O 
FUNK 3" SCHRECI4IE" 2" GOTO1 20 
FUNK 4" SCHFE£l343;",8":G0T0120 


IFI$="S"THENEG=? 
IFLS="SSTHENER“Z 


CH 


TPERCOTHENDS: 
GOTO?3 
POKE36878, 12 

Tier! 
IFTI+EG>TITHEHSZ 
PNKES6373.8:GOT058 
POKE36878.15 

Ti=TI 

& IFTI+CHHEGI>TITHENSE 
POKEIESTS. A: GOTASS 
Ti=T1 
IFTI+EGHTITHENSS 
RETURH 

Ti=TI 
IFTI1+C3#EG>>TITHENEZ 
RETURN 


JMD iD 


f 


0; ca ı E30 Bra Bee Br Er 


93 


Hobby 


&4 TieTl 
63 TETI+LTRERSPTITHENGS 

56 RETURN 

39 PRINT"TMEEHDERH -U- = % ENDE = gm" 


122 GETAE: TFAF=""THENIAA 
119 IFAF="£" THEHGOTIERRAN 
112 TFAg="E" THEHRUM 

115 FRINTAf; 

113 GOSUBS1 


120 IFAg="A"THENCOSURIA:GOSURT4:GOTNLAR 

25 IFAF="B"THENSOSURSEGASURIA: GOSUBTA: GOSUBSA:G 
129 TFAE-"TNTHENGOSLUBT4: POSURTR:GOSUBI4 GOSUBIA:G 
149 TFAg="T" THEHGOSURS4 GOSUBSR: GOSURTR: GOTOIAA 

145 IFAt="E"THENBOSURSA:SATOLAO 

153 TFAf="FITHENGOSLERSI:OOSLESE: GOSUBI4:GOSUBSA: GOTO1HA 


152 IFAf="G"THEMGOSUBS4GOSURTE GONIBFAGATOL AR 
159 TFRF="H"THEHGOSURSR: GOSURSR GOSURTA: GOSUBTA! COTILAR 


185 TFAg=" TI THENGOSURSA:GOSURSB:GOTOLAR 

17a TFAg=" T"THENSNSUBIN:GOISURS4GNSUBI4: SOSUBT4:CNATOLAA 
175 IFA&="K"THENGOSLUBIAGOSURSR: GOSLUBI4:GOTOLOR 

sa TFAF="L"THENGOSURSA: GOSUBI4: GOSLIBSR: GOSLUBSA: GOTOLAM 
85 IFAge"M"THEHGOSURTGGOSLUBI4CNTOLRO 

3m IFAg="MTTHRMGOSURT4: GOSUBSA:GOTOLAN 

DE 
[al%) 


IFRE=NDNTHENSOSURSG GOSURI4: SOSURS4GOTD1AN 


Zn Ze nn De Zn 55 


1 
29 TFAF="A"THENGOSUBS4 GOSUBS4GOSLUBSA:GOSUBS4:GOTO1AB 
19 IFAS="R"THENSOEUBSA:GOSUBSACOSURSA:GNTOLAR 
= 


1 

{ 

ie 

za TFAF="P"THENGOSLBIB:GOSURF4GOSURS4GOSURTA:GOTOLDO 
el 

2 


TFAS="SNTHENSOSURSAGOSURTA GISURTACITIIAO 


TFAge" TTTUENONEUBGA NT AD 


a2 FNSURS4:GOTOIAA 
229 TFAg=""THENGOSURSA:GNSURSA:COSURSN:COSUPS4COTNLAB 
238 TFAG="LNTHEHSISLURSR:SOSLURS4COSURS4:GOTDLAM 

248 TFA$="X"THENGOSUBS4:GOSURSA: GIELBSA SNSUBS4:GOTOIAA 
245 TFAgSNTUEHROSURTEENSLRSA: FORUBS4CNSURSESOTNLAR 
229 TFOE-NTITUENSOSNBEA: GOSLBSAGISUBSTA:GOSUBTA:COTTIAA 


2=5 TFag=" "THENGNSURE4SOTNLAR 

269 TFAF="A"THENGLELBSA:GNSURS4:GOSUBS4:GOSUBS4:GOSLUBSA:COTOLAR 

265 TFAg=" | NTHEHSOSURSO: GOSUBS4COSUBS4CNSURSA:ENSURT4CNTOLAR 
2 


279 TEAE="ONTHEHSIENBER SOSURSA: DSL OSURSA: GOTNIAR 
275 TFAR-" PITYENFOSURSN: GOSURSA:GNS 60 saroıaa 
22a IFAF="4"THEHGISLURSA:SISURSA ROSURSA:GOSURSR: GOSUBS4:GOTOLAA 
235 [FRE="S"THEHGOSURSA:EOSUBSA:GOSUBSA: GOSUBSA: GOSURSA:KOTOLAA 
299 TFAF="ENTHEHFISURSA FORURSAONSUBSAGOSUBSASNTUPSA:ANTOIAR 


soTataa 
sATO1AM 
SUPER: GATOLAA 
le 


5 
2a TFA$="O"TWENGOSURT4 GOSLURS4 GOSUBT4 GOSUBS4G 
5 


21a IFA$=", "THEHSOSUBRSAROSLURSACHEURSA: GSLURS4COSUBSA:ENTLUPRSACNTOIER 
SE TFag=t, PTUEHTNSURTESOSURSAGOSLUBSB: GORLUBSR: GOSUBS4:GOSURS4:GOTOLAA 
229 1FOg="I"THENGOSUBSA:GOSURSA :EOSURS4:COSURS4GNSLURSA: SOSURSA:GOTNIAR 
228 TFAF="-"THEHGOSURS4HOSUBSA: GOSURSA: GNSLBSA:ENSURSE: SOSURS4:GNTOLAR 


32a TFASCCAEI=DATHENTISUPSA:CNSUIRS4SNSURTA: SOSUPTA' GNSUPSASOSUBSA:GNTOLAN 
225 TFAt=" "THERRIELBT4GOSLRS4: GOSUBS4GOSUBSB:GOSUBSA:SOSURTA:ENTOLAN 

249 IFA$=")" THENSISUPSASGOTURSA: SOSLIRSA:SOSLUBSA:GOSUBTA:GOSUBS4:GOTO1AA 

245 IFRg=""THENGOSURS4COSUBTA: GOSURS4:GNSLPSAKOSLUASA:GNTNLAA 

358 IFA$=" "THEHLOSLBGASNSURENGOSLRTA:GSNELNBFA:CNSURTA:GOTNLAR 

SER PRIHTIERINTRE ERPOR yaakı RATNnE 


gaana rIp-inmentıo mınm ın.q 


12. Fünkr3 
= FOKE36S?6, 209 
10 PRINT" EM GESCHWINDIEKESTAT 
11-PBRIHTIIT 25 2. Pe TE I Zn! 
12 PRINT'E 35 iger 
13 PRINT"M? 40 Eu 
14 PRINTIM 45 a" 
IS-FRIMTIRE 55 nl 
18-PEIHT’BE. E93 ıTM Pi, Seal, 
17 PRINT" 195 Zi ba eg 
24 PRIHT"ERTTTE MAEHLEH STIER" 
25 GETIE:IFIE=""THEN2S 
27 IFIE="B"THENEG=14 
28 IFIE="1"THENEG=11.2 
293 IFIf="2"THENEG=9, 1 
38 IFIF="I"THENEG=S 
21 IFI$="4"THENER=?7 
232 IFl&="S"THENEG-S 
33 IFI£="S"THENER=S 
ad TFTE="F"THEHER=4 


Ar) DD 


5 1FI$="8"THENEG=3 


IFIf="9"THENEG=2 
IFIt="E"THENGOTDEAAAN 
SASUBRSHAN 

IFES<LSTHEHZE 

G0T099 

PNKE3E373,15 

T1=T1: IFY=1THENFRINT"DI"; 
IFT1+EG>PTITHENSZ 
FOKEIS6S?®: A: GOTISE 
enrEaSS7R.1S 
Ti=TT:TFO=ITHEHRRTHT"DAH"; 


TFG=4STHENENSUBSR 
TFA=44THEHGNSLIBSA 


Eine 


IFA ALTHENGO SL1BSR 


/ IPA AOTHENEOSUNSE: 
ı TFA=SSPTWENENSUESA 
IFA=22THENGOSLBSB: 
TFI=ATPTHEHNRNSURSR: 
IFA=36 THENGOSUBSR: 
: IFA=3STHENSDEeDe gas 
A TFR=24THENGEOSUBSE 
: TFA=33THENGOSURSE: 


Publikation von CHIP 


IFTI+L3YEGI>TITHENSS 

POKEI6373,0:G0T058 

T1=T1 

IFT1+EG>TITHENS® 

RETURN 

Ti=TI 

IFTI+CHHEGH>TITHENGZ 

RETURN 

Ti=T! 

IFTI+LT&XEGH>TITHENES 

RETURN 

S0SUB9I929 
A=IHTCCCRHDETTIRASI+] 


:GOSLUBSA 
:SNELRSA: 
N TFR= A 
:SCSUBIR: 
Age" aNTNIAgR 
GOSURSN: 
ENSURTE: 
SOSUBSR: 
SASUBSR: 
GOSLUBAE: 
EnzuREN: 
:ENSUBS4:R 


GOSURSE! 


GASURSA! 


Ag="an Area 


en AF="R":G60TOLARA 
GOSURI4:GASUBTAAF="C"GOTOIAAR 
ee GOTO1EAR 


FISURTE! SOSURTATAF-"FrIGNTNMIARGO 
FOSURSA: AF="G":GOTO1OAR 
GOSURSE:EOSURSN: Af="H"GOTOLaAA 
Ar="1":G0TO1OR 
GASURTA N FOSUIRTI AL" I" OT ARE 


Sunset nenne" soTo1naa 


Hobby 


95 


Hobby 


192 TFA=3ZTHENGDEURS4: GOSLIRSA: AF="N"COTOIAAA 
125 IFA=31ITHENGOSUBS4: GOSUBS4 GOSURS4 REIN" SATOIARR 


299 IFR=IATHEHTNEURSAANSLURSASNSUBSASNTUBTA AF="P" ANTNLORR 
2a= TFA-IITUEHRNEURSTASOSUBTGGNSUBSA: GOSLURIEAF=IN" GOTOI ANA 


u. ER NS F eil pm Don JB Da ER 


>18 TFR=2BTHENGASURTA: BNEURSA: NBUBSAAR="PN GOTOLADR 


215 TFS=Z7THENEOSLBSR: GOSLUBSR: GOSURSN:AF="S":GOTOIAAR 


220 TFA=2ETHENGÜSUBS4AS="T" OTOLARD 
225 IFA=2STHENSITUPSARNSLRSA:SOSURTACAF="LN ONTOLaRM 


229 TEA=24TMENGOELNRSA GNSUDSM: SOSURSR: GOSUBI4AF="W"GOTOLORA 
235% IFA=23THENGSDSUBIEA: GOASUBI4GSOSURM4 RE="M"SOATOLBAO 

24a TFA=ZZTUENGODENRTA GASURSE: GOSLBSIE GNSURS4AF=" KT GOTOLAAR 
243 TFA=21 THEHSOEUREE: SOSUBSA ROSLIRTA N EOTUPTE AR ENTOLAAM 
za IFO=2ATMENROSURSE GOSUBS4: GOSLRSA DOSLURTET AF="2" GOTDIARA 
ze TFR=LATHENGOEIBIE GOSLURF4 GOSUBI4: GOSURI4SOSLIETG AfA": SOTOLARR 
285 IFA=1STHENGISLPTR SOSUBSE BOSUBS4: GOSLURT4EGOSURAE AS" GOTOTAAB 


273 TFA=17THEHBOSLRSA:GNSUBSACOSURTE:ENSUBTEANELURNAAF="2 OOTOLARM 
7) 


TFA=S1ETHEHGOERERN: GOEUBSA GASUBTA COSLRTE GOSUBIE AF="3":GOTNIABA 


an TFA=ISTHEHGOSURTA: SOSLUBIR: GOSUBSIA: GOSUBSR! GOSURI4AF="4": SOTOLOAM 


TI EEE EHE LEEREN 


285 IFA=14THREHGISURTENSOSLBSA GOSURFA: GOSLUBIA: GOSURSA: AF="5":G0TOLAMA 
#29 TFA=13THENGOSLUBS4:GOSLIRTE: SISLURTE! GOSLURTA GOSURSR: Ar="E" GOTOIAAM 
295 TFA=1STHEHSHSURTE GOSURTE: SISUBTE GOSURTA: GOSURSZA AR="7":GOTOLAAA 


ı TFR=1 ETHENGOSLUBS4GOSLUBS4 GOSUBI4 GOSLURÄA GOSUBTR: AF="8":GOTDIAAA 
: GOSUIES4 GOSUBS4 I GOSURT4! GOSLIBSR: AF="9"GOTOIAAR 


LE Kia BF ze nn E 2 BEE Mn 1 CE ZZ BR ZECHE 2, BEE Fön ZA Zum 2 BB ZI u. 2 So 


28 TFA-STHENGOSLUTSA OEURTASNEURFA:GOSURTA :BOSUBSA: GOSUBSA:AS=" ,"ENTOLAAR 
329 1F@=7THENGOSUBSA: GOSURSA:SNSURSA: GOSLIRS4 OSLBSA:CNSUBSA:AF="9" :G0TO1AED 
KSURSA : GOSUBSA:GOSUBSA:GOSURSA:GNSURSA:AR="-" nTnımaR 


319 TFA=ITHENGISUBSR: GOSUBT4E BOSURSM DSB GOSURTOTGOSURTE AR" ISRTOLAAN 
m 


min 


102) 
A TFA=SSTHENGASURTLCITURSA: SNSHURSA! GNSURTA: ARASHREA:RNELIBTEAF="-":GNTOLAAO 
5 TFO=-FTUEHCASUREEN GOSURSAINOSUR4  GOSUESA : GOSURSA ENSURAM : Age"! " : SNSURL AA 
A IFA=ATHENGHSURSASNSURSA:SOSUBS4GOSUBS4 :GOSLUBSA:GOSUBS4 ASS") ONSURLAAR 
5 e 
3 n 
4 

E\ 


TFA=3THEHCOSUBS4 ONSURSA : ANSURT4ROSUPSASNSUPSR:AF=" CH ENTNIAAA 


359 TFO-ITUENANSURSG HOSLBSA:ANSUBSNANSLURT4:CNSUBSAAF="/":GOTOLRGR 
351 TFO=LTHENGOSURSA:GOSUBSA:COSURSA:SOSURSA:SOSURSM: ALS" 7": NTOLAAA 
ass, PPRINT-ERINT" ER ERPOR ok" GOTOLDM 


1229 PRINT 

ıa1a GETBE: IFRE=""THENIAIA 

1824 IFB$="£"THENGERAN 

aa IFRE="#"THEHRUM 

aaa TFBE="M"THENTDN 

1asa FRIHTRE 

1955 TFEHZTHENGAFURIIA: = COTO12N 

19ER TFAL=BETHENC=CHL:GOTN1OR 

1379 PRINTER LOESUNG : ";AF:PRINT!C=C+1:G0TO100 


sand PRINTUTMMMIT PHNNETISCHER AUSGABE ?" 


gia FRINTTMIM = TAmm u ER 


Sa2a BETYE: TFUE=" TTHENSAOMA 
SONg MEUAt u) 


240 TFOLINRUSSTHENEO2A 


o=9 RETURN 
3393 POKE3ERTI. AR: PRINT" 


seaad PRINT"IINRENDERN -YV- = % EHTIE = WUTEDERHOHLUNG= tm" 
1aa19 PRINT"=" RETURN 
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Hobby 


12 Funk 4 


1229 PRINT"TE CODE - SCHLUESSELE" 
110 PRINT"MIRITTE BEACHTEH'" 
129 PRINT"N. 


ag IFas="-_ --"THEHAF="W AHKEE" !GOTOLAOR 

2 
PUNKTM - = STRICH" 29 

2 


IFAg="--. ."THENAF="Z ULM GOTOLAAR 
TENF=-" nn "THENAF="A"GOTOIAANB 
IeAa$=",----"THENAF="1":GOTOLAAE 


er 
DEIN 


12a PRTNT"MCRETURN) = ENDE EINES ZEICHENE" 
140 PRINT"MIEINGBARE ©" IFAg=", „---"THENAS="2":GOTDIARR 
1sa THPUT"W RE IFAt="...„--"THENAF="2": GOTDIARA 
155 TFAg="-"THENAF="A LPHA / 1":cotmiaaan 319 TFA"... „-"THENAF="4":GOTOIEMA 
1E0 1FAt="-, .."THENAF="R RAYO / 7":corniema >13 IFPf="..... "THENAF="5" :GOTDIGAR 
1655 IFAf="-,-. "THEHAS="TC HARLIE":EnTmIamS 2A TFAs="-,,.."THENAF="&":GOTO1A08 
17a Trage" "THEHAF-"N ELTA 2 au:cntniama 325 TFAf="--. .„"THENAF="7":GNTDIARA 


175 TFag=", "TUENAE="E CHN":GNTOLAHA aaa TFA$="---,."THENAF="8":G0TD1AQO 
150 IFA$=",,-. "THENAF="F OXTROTT":saTntama 335 TFA$="----, "THENAF="3":GOTO1AAR 
185 IFAt='"'-- "THENAF="G OLF"!GOTOIDOO aa IFAt=",-.-,.-"THENAF=".":GOTN1ARR 
sa IFAt=",..."THENAF="H OTEL":GOTDIAAR 345 1FA4="-—, „= "THENAF=","GOTOLAAR 
195 TFAg=",  "THENAF="T NNIA":SNTNIaAR aaa IFAt=". .--,."THENAF="PN:SNTOIARA 
2aa IFRf=",---"THENAF="T LLIETT":COTOLAAO 3a, 1FA6= =" THENAS=I-" SENTOLADd 
Se TFat="_ _"THEHAE="K Tin" RnTniaag 3E9 IFAE=".-..-. "THEMAFSCHRFL34:COTOLAAR 
ia TFes=",-,."THENAS="L TMA":GOTO1209 365 IFA$="---. „„"THENAF=":":G0TN1AAR 
215 IFA$="--"THENAS="M IKE" :GOTOIAMR 378 IFAt="-.--.-"THENAF=")":GOTOLBRR 
22a 1FA$="-,."THENAF="N OWEMEER / 373 IFAf="-,.--, "THENRE=" 1": GOTOLEMA 
a" :GoToLaaa sag IFAf="-, „-. "THENAF="":G0TOIAAR 
22a IFAF="---"THENAF="N SKAR":GOTOLAAM as TFAg=",—. -"THEHAF="RE RGER"ENTNLAMA 
230 IFA$=".--. "THENAF="P APA":GOTOIAAE 299 1FAS=", „„--"THENAF="LE BEL"!GOTO129B 
235 IFAf="-—, -"THEHREH"N LIEBER" GNTOLAMG aaa IFA$="---, "THENAF="NE SE":CNTILAAA 
Dan TeAg=", -, "THEHAF=IR MMEN":GATOLAAR 4aa TFA="----"THENRE="CH ARLOTTE":GOTA1ARA 
za TFag=",. "THEHAF="S TERRA"'GOTO1ARO 423 TFAE=", .—.."THENAF="E":G0TO1ARR 
235 IFAf="-"THENAS="T ANGO 2": G0TO1aag saa Ag="### ERROR RE" 
zen IFAtm", „-"THENAE=" MIFORM 7 12aR PRINT"MLOESUNG! "IRF 
2": GOTI1ARR 1218 PRIHT"WBMEITER IN?" 
Sea IFfg=",.„-"THENAF="V ICTOR / 12229 GETRE 
a anTnt aan 1e23a TFRE=" TTHEHRUN 


279 TFAg=",--"TNENAE="] HISKUTGOTOLAAA 1949 TFBS=-"N"TUENCLPLOAD"12 FUNK 1",8 
278 TEAg="-, -"THENAE="N -Paun nnrntama ıa=a SOT21a2a 
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CHIP-Buchladen 


Personal-Computer- 
Lexikon 


Günter Rolle 
136 Seiten, 19,80 DM 


Die 1000 wichtigsten Hard- 
und Software-Begriffe des 
Personal Computing mit aus- 
führlicher Erklärung für alle, 
die sich privat oder im Beruf 
für Personal-Computer inter- 
essieren. Ein englisch-deut- 
sches Register erleichtert das 
Studium englischsprachiger 
Dokumentationen. Darüber 
hinaus ist dieses Lexikon ein 
wichtiger Beitrag zur Klärung 
von Begriffen, die auch heute 


Spaß mit BASIC für 
Anwender 


K.-D. Kaufmann/ P. Krizau 
176 Seiten, 26 DM 


Programme für Praktiker aus 
Mathematik, Lernen, Spielen, 
Wirtschaft, Technik, Sprache, 
Grafik ermöglichen dem Hob- 
bycomputerfan den Aufbau 
einer Programmbibliothek. 
Die Programme sind in 
AINSI-Minimal-BASIC ge- 
schrieben und daher nicht 
rechnertyp-abhängig. Eine 
nützliche Ergänzung zu dem 
Lehrbuch ‚„‚Spaß mit BASIC." 
Eine Sammlung aus der Pra- 


EINFÜHRUNG IN DIE 
Mikrocomputer-Technikk 


volig 
uberarbeitele 
Neuaullage 


Dr ie 
Adam Osborne 


Einführung in die 
MC-Technik 
Adam Osborne 

432 Seiten, 66 DM 


Dieses Standardwerk der Mi- 


krocomputertechnik ist die 
umfassenste, vollständigste 
und neutralste Darstellung 
auf diesem Gebiet. Mit die- 
sem Werk hat sich der Autor 


den Beinamen ‚„Mikrocompu- 


ter-Papst’' geschaffen. An 
über 500 Hochschulen in vie- 
len Ländern ist es als regulä- 
res Studienwerk eingeführt. 
Die ins Deutsche übersetzte 
Fassung ist bereits mehrfach 


MEIN ERSTER 
B 


Mein erster Computer 


Rodnay Zaks 
304 Seiten, 28 DM 


„‚Mein erster Computer” ist 
die Übersetzung von „Your 
first Computer.‘ Es geht 
darum, was ein Mikrocompu- 
ter ist, wie er funktioniert und 
wofür er zu gebrauchen ist. 
nach der Lektüre des Buches 
sind Sie selbst in der Lage, 
zu entscheiden, ob ein Com- 
puter für Sie nützlich ist, wel- 
chen Rechner und welche Zu- 
behörgeräte Sie gegebenen- 
falls brauchen. Keine Vor- 


Einführung in WordStar 


Arthur Naiman 
208 Seiten, 38,— DM 


Der Aufbau des Buches 
macht die Einführung in 
WordStar zum unersetzlichen 
Wegweiser für Anfänger und 
Fortgeschrittene. Lernen Sie 
heute, wie das Büro von mor- 
gen funktioniert. Machen Sie 
sich die Technik des elektro- 
nischen Büros schon heute 
zunutze. Sie lernen wie Texte 
editiert werden, Textblöcke 
bewegt oder entfernt wer- 
den, Textdateien an- oder zu- 
sammengelegt werden, Text 


noch angewendet werden xis für die Praxis 


aktualisiert aufgelegt worden 


kenntnisse erforderlich! 


über prüft werden kann u.a.m 
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Sprachen 
Systeme 
und Pro- 
gramme 
für Hobby 
und Beruf 


Programmsammlung 
zum IBM PC 


Stanley R. Trost 

192 Seiten, 34 DM 

Dieses Buch wird Ihnen hel 
fen, die Möglichkeiten und 
Vielseitigkeiten Ihres IBM PC 
zu entdecken. 65 Anwender 
programme decken eine 
weite Palette von kaufmänni- 
schen, schulischen und per- 
sönlichen Anwendungen ab. 
Grundrechenarten, Ketten- 
multiplikationen, Datenver- 
waltung, Datenanalyse, Gra- 
fikverarbeitung, Kaufmänni- 
sches Rechnen, Immobilien- 
Programme u.a.m. 


Vom Umgang mit 
CP/M 


Bernd Pol 
484 Seiter:. 48,— DM 


Dieses Buch spannt den Bo 
gen vom Basiswissen für den 
Computerlaien bis hin zu den 
Feinheiten für den interes 
sierten Fachmann. Der erste 
Abschnitt zeigt die wichtig 
sten Eigenschaften von Com 
putern und CP/M. Im zweiten 
Teil werden die zentralen 


CP/M-Hilfsprogramme vorge- 


stellt. Der dritte Teil schließ 
lich geht ausführlich auf die 
Systembesonderheiten von 
CP/M ein 


CP/M und WORDSTAR 
R. Paul/M. Riedel 
130 Seiten, 29,80 DM 


Allen Anwendern, die kom- 
merzielle Software nutzen, 
aber auch selber Programme 
entwickeln wollen, ist diese 
Neuerscheinung dringend zu 
empfehlen. Sie führt in das 
Mikrocomputersystem CP/M 
ein, das wegen seiner vielfäl- 
tigen Möglichkeiten das am 
weitesten verbreitete Soft- 
waresystem ist. Für die ratio- 
meile Textverarbeitung bietet 
==s CP/M-kompatible System 

wsordStar" zahlreiche Varia- 
en 


11 fantastische Spiele 


puter 
BASIC geschrichen 
mit Lästing und 

Prohelauf 


BAND 2 
.- weitere 84 herrliche Campniterspiche 
fir Iren 
Mikrocumputer 
alle in BASK 
wa Programm-| istung 
und Prodschand 


BASIC-Übungen 
für den IBM 
Personalcomputer 


J. P. Lamoitier 

256 Seiten, 38 DM 

NEU in Deutsch 

Nicht nur praxisnah, sondern 
auch unterhaltsam läßt sich 
mit diesem Buch das Pro- 
grammieren in BASIC auf 
dem IBMPersonalcomputer 
lernen. Schritt für Schritt 
zeigt der Autor mit Hilfe von 
Beispielen, worauf es bei der 
Programmiersprache BASIC 
ankommt. Schnell lernt der 
Leser, eigene Programme zu 
schreiben. 


BAUELEMENTE DER ELEKTRONIK 


Der 8086 

in der Praxis 
Herbert Stein 

180 Seiten, 32.- DM 


Eine experimentelle Einfüh- 
rung in den 16-bit-Mikropro- 


zessor „8086. Aus diesen Ex- 


perimenten ist dieses Buch 
entstanden. Es stellt dem Le- 


ser die Schnittstelle zwischen 
Prozessor und Peripheriebau- 
steinen vor. Der Schwerpunkt 


liegt auf der Realisierung der 
Ein- und Ausgabekorzepte, 
die ohne großen Meßgeräte- 
aufwand mit elementaren 
Testtechniken prüfbar sind. 


Das 8086/8088-Buch 
R. Rector/G. Alexy 
560 Seiten, 69,— DM 


Hier werden die technischen 
Möglichkeiten des 8086 und 
des 8088 beschrieben für In 
teressenten, die mit Perso 
nal-Computern experimentie 
ren (2.B. IBM, PANASONIC, 
SIRIUS, SONY u.a.), bis hin 
zu erfahrenen Technikern, die 
sich mit Entwicklung komple- 
xer 8086-Hardware befassen 
Das Buch ist randvoll mit 
Funktionsbeschreibungen, 
Beispielen und Diagrammen. 


Practical BASIC 
Programs 


IBMPersonalcomputer Edition 
A. Osborne/McGraw-Hill 

160 Seiten, 59,— DM 

in Englisch 

Mit diesem Anwenderbuch 
kann der Benutzer eines 
IBM-PC seine eigenen, voll- 
ständig dokumentierten Pro- 
gramme direkt eintippen: 
Durchschnittseinkommen, 
Wahrscheinlichkeitstheorie, 
u.a.m. sind nur einige der 40 
praxisnahen Programme, die 
hier für sage und schreibe 
1,50 DM je Programm gebo- 
ten werden. 


Planen und Kalkulieren 
mit MULTIPLAN 


Dr. Peter Albrecht 
225 Seiten, 82 Tab., 58,— DM 


Dank seiner neuen Menü- 
Technik ist MULTIPLAN sehr 
schnell erlernbar und kann 
auch nach längerer Pause so- 
fort wieder richtig bedient 
werden. Es bietet so viele 
Leistungen, daß selbst EDV- 
Profis angesprochen sind. 
Aus dem Inhalt: Das erste 
MULTIPLAN-Modell, Erweite- 
rung des Modells, spezielle 
MULTIPLAN-Befehle, Daten- 
austausch mit anderen Pro- 
grammen u.a.m. 


FORTH-Handbuch 
E. Floegel 
189 Seiten, 49,— DM 


Kennen Sie FORTH? Die 
Grundlagen dieser neuen 
Computersprache, die sich 
durch ihr Wörterbuchkonzept 
grundsätzlich von anderen 
Sprachen unterscheidet, ver- 
mittelt ihnen dieses Buch 
FORTH entspricht mehr der 
gesprochenen Sprache als ir- 
gendeine andere höhere Pro- 
grammiersprache und läßt 
dem Programmierer viel Frei- 
heit. Die daraus resultieren- 
den Vor- und Nachteile wer- 
den verdeutlicht. 


BASIC COMPUTER- 
SPIELE BAND 1 
David Ahl 

224 Seiten, 32,— DM 


Das Dorado für Spielpro- 
grammfans, jetzt in Deutsch 
101 fantastische Mikrocom- 
puterspiele in Microsoft-BA- 
SIC mit Programmlisting und 
einem Spieldurchlauf sorgen 
für Freude aller Benutzer 
Jede Kategorie ist mit einer 
größeren Zahl vertreten: 
Weltraum, Sport, Casino 
spiele, Logik- und Bildungs- 
spiele. Programmänderungen 
für andere BASIC-Versionen 
werden erläutert. 


Ale Tricks der Tab { 
nt an W praxisnahen Be 


MULTIPLAN 
richtig eingesetzt 


R.E. Williams 
ca. 200 Seiten, 58 DM 


Alle Tricks der Tabellenkalku- 
lation erklärt an 10 prakt. Bei- 
spielen 

Ein Ubungsbuch mit Beispie- 
len für Anwender des Com- 
puter-Programms MULTI- 
PLAN und solche, die es 
werden wollen. Wenn Sie die 
Übungen Schritt für Schritt 
durchgehen und ausprobie 
ren, werden Sie sehr schnell 
die Vielzahl der Anwen- 
dungsmöglichkeiten von 
MULTIPLAN beherrschen 


Programmieren mit 
PASCAL 

Rüdeger Baumann 

272 Seiten, 23,— DM 


Diese Einführung in die Kunst 
des Programmierens für 
Schüler, Hobby-Programmie- 
rer, Volkshochschüler u.a 
verlangt keine Vorkenntnisse 
in Mathematik oder Elektro- 
nik. Die Sprachkomponenten 
von Pascal werden nicht sy- 
stematisch abgehandelt, son- 
dern beim Lösen konkreter 
Aufgaben nach und nach er- 
arbeitet. Zahlreiche Ubungs- 
aufgaben dienen der schritt- 
weisen Festigung 


BASIC COMPUTER- 
SPIELE BAND 2 
David Ahl 

224 Seiten, 32,— DM 


Computerspiele gewinnen 
immer mehr Freunde. Dieser 
Folgeband bietet wieder eine 
Menge Spaß und Anregun 
gen mit 84 brandneuen Spie- 
len, ausgestattet mit den fan- 
tasievollsten Attributen: Mit 
„Camel“ lernen Sie das 
Überleben in der Wüste, 
durch „Millionaire‘ erhalten 
Sie die Gelegenheit, Ihr Le- 
ben noch einmal zu planen, 
viele weitere Spiele lassen 


‚keine Langeweile zu. 


Logik der 
Programmierung 


Günter O. Hamann 
448 Seiten, 44 DM 


Programmierte Unterweisung 
Strukturierte und Normierte 
Programmierung mit Pro- 
grammablaufplänen und 
Struktogrammen 


Dieses Lehrbuch ist als pro- 
grammierte Unterweisung 
abgefaßt. Es vermittelt in ein- 
facher und verständlicher 
Form die notwendigen 
Grundkenntnisse der Pro- 
grammierlogik und stellt das 
Verfahren der ‚‚Normierten 
Programmierung“ dar. 


Einführung in PASCAL 
und UCSD PASCAL 
Rodney Zaks 

544 Seiten, 48,— DM 


Programmierkenntnisse setzt 
Rodnay Zaks beim Leser 
nicht voraus. Sein einfaches 
und doch umfassendes Werk 
führt schrittweise in das We- 
sentliche von Standard- und 
UCSD/PASCAL ein. Abge- 
stufte Übungen vertiefen das 
Erlernte so, daß bald das Er- 
stellen eigener Programme 
möglich ist. Genau dies, Ler- 
nen durch Programmieren, 
legt der Autor seinen Lesern 
besonders ans Herz. 


Ihre Bestellung senden Sie bitte an: Vogel Buchvertrieb. Postfach 67 40, 8700 Würzburg 


DAS COMPUTER-GESPANN. 
HX-20 für die mobile Datenerfassung, 
QX-10 für die Weiterverarbeitung,. 


Eine feine Sache, das Computergespann 

von EPSON. Während Sie mit dem HX-20 schon wieder 
unterwegs sind, Kunden zu beraten, Wünsche zu erfassen 
und Vorschläge zu machen, liefert der QX-10 bereits 

die Ergebnisse der letzten Reise. Einfach, weil Sie die mit 
dem HX-20 erfaßten Daten an ihn weitergegeben haben. 
Daß Sie sich auf die Ergebnisse des OX-l0 Büro- 
computers verlassen können, dafür sorgen unter 
anderem ergonomisches Design, moderne Technologie, 
deutsche Schreibmaschinen-Tastatur, 


256 KByte RAM, zwei 328 KByte Floppies, 

MF CP/M-Betriebssystem und hochauflösende 640 x 400 
Punkte-Grafik. Dafür garantiert aber auch das einzigartige 
Format des HX-20 Hand-Held-Computers: DIN A4 mit 
großer Tastatur, bis zu 32 KByte RAM, Kassetten-Laufwerk, 
Minidrucker, LCD-Display, netzunabhängige Stromversor- 
gung u.v.m. Sie sollten das Computergespann einmal 
unter die Lupe nehmen. Sie werden feststellen, daß es 
kaum einen Auftrag gibt, den diese beiden Profis nicht für 
Sie erledigen. In welcher Branche auch immer. 


EPSON 


Technologie, die Zeichen setzt. 


EPSON Deutschland GmbH :- Am Seestern 24 - 4000 Düsseldorf 1] : Telefon: (0211) 5961001 
HAYWARD - Alpenstraße 108a :- A-5033 Salzburg - Telefon: (06222) 20026 
EXCOM AG - Einsiedlerstraße 31 - CH-8820 Wädenswil - Telefon: (01) 7807414 


Be ee en pr een ans ne 4 ass mama ns 


Mehr über das Computergespann, wenn Sie uns schreiben. 


Name: 
Firma: 
| Straße 
fe) | 
je 
< PLZ: Ort: 


'CH8&HR | 


